Set ActiveShape=ActiveSheet.Shapes(UserSelection.Name)On Error Resume Next MsgBox"左侧位置: "&ActiveShape.Left&vbNewLine&_"顶部位置: "&ActiveShape.Top Exit SubNoShapeSelected:MsgBox"没有选择形状!"End Sub 确定形状大小 可以使用VBA修改两个属性来更改形状的大小。这两个属性是形状的Width值和Height值,如...
代码语言:javascript 复制 FunctionAddShapeToRange(_ ShapeType As MsoAutoShapeType,_ sAddress As String)As Shape With ActiveSheet.Range(sAddress)Set AddShapeToRange=_ ActiveSheet.Shapes.AddShape(_ ShapeType,_.Left,.Top,.Width,.Height)End With End Function 代码中的参数ShapeType指定形状的类型,可以是...
当一个工作表中有多种Shape类型的时候,可以通过Shape.Type属性值返回一个代表形状类型的MsoShapeType数值。通过该数值可知该图形的类型。 列表如下: 举例如下: 1Sub返回SmartArt总数()2ForEachshpInActiveSheet.Shapes3Ifshp.Type =24Theni = i +14Next5MsgBox"共有"& i &"个SmartArt 图形"6End Sub...
Sub DetermineShapeType()Dim ActiveShape As ShapeDim UserSelection As Variant SetUserSelection = ActiveWindow.Selection OnErrorGoToNoShapeSelectedSetActiveShape = ActiveSheet.Shapes(UserSelection.Name)OnErrorResumeNext MsgBox"所选形状类型:"& ActiveShape....
其中expression 是必须的,代表一个Shape对象的变量. MsoShapeType 枚举值: mso3DModel303d 模型 msoAutoShape1AutoShape msoCallout2标注 msoCanvas20画布 msoChart3图表 msoComment4批注 msoContentApp27内容 Office 加载项 msoDiagram21规划 msoEmbeddedOLEObject7嵌入式 OLE 对象 ...
[ExcelVBA]Shape.Type属性名称及对应值列表 当⼀个⼯作表中有多种Shape类型的时候，可以通过Shape.Type属性值返回⼀个代表形状类型的MsoShapeType数值。通过该数值可知该图形的类型。列表如下：名称值说明 msoAutoShape1⾃选图形 msoCallout2标注 msoCanvas20画布 msoChart3图 msoComment4批注 msoDiagram21图表 ...
下面的自定义函数使用Shapes集合对象的AddShape方法及其参数,可以在指定的单元格中插入指定的形状。 Function AddShapeToRange( _ ShapeType As MsoAutoShapeType, _ sAddress As String) As Shape With ActiveSheet.Range(sAddress) Set AddShapeToRange...
ShapeType,_.Left,.Top,.Width,.Height)End With End Function 下面的代码调用AddShapeToRange函数并在单元格B2中插入一个笑脸形状: 代码语言:javascript 复制 SubtestAddShapeFunc()Dim shp As Shape Set shp=AddShapeToRange(17,"B2")End Sub 运行效果如下图6所示。
方法/步骤 1 点击开发工具下的VB编辑器进入vba代码编译窗口。2 在vba代码编译窗口中点击“插入”->“模块”，创建新的vba代码模块。 3 在vba代码编译窗口输入以下代码，运行即可插入椭圆形状。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoShapeOval, Left:=502.5, Top:=668.25, Width:=210...
4）ShapeRange.Type属性，返回一个MsoShapeType值, 该值代表形状的类型。对于这个MsoShapeType值，我给出下面的列表：名称值说明(英语)说明(汉语)mso3DModel303D model3d 模型 msoAutoShape1AutoShape对象 msoCallout2Callout标注 msoCanvas20Canvas画布 msoChart3Chart图表 msoComment4...