Sub addFlowchartNotPrimitiveToSlide()Dim shape As shapeSet shape = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeNotPrimitive, 100, 100, 300, 300)End Sub#阿蒙VBA代码之幻灯片PPT#阿蒙VBA生活更美丽#阿蒙君韬略