ActiveSheet.shapes("缺角矩形 8").OnAction = "Macro2" End Sub Sub Macro2() MsgBox "Hello!Second!", vbInformation, "Second" ActiveSheet.shapes("缺角矩形 8").OnAction = "Macro1" End Sub '创建私有方法 Private Sub CommandButton1_Click() Dim i As Integer For Each Shape In shapes i = i...
Dim str As String For Each shp InActiveSheet.Shapes str = str &shp.Name & vbCrLf Next shp MsgBox "工作表中的3个形状名称依次为:" & vbCrLf & str End Sub 运行上述代码的结果如下图2所示。 图2 可以通过名称或索引值来访问Shape对象,例如代码: MsgBox ActiveSheet.Shapes(1).Name 得到工作表中第1...
2）For Each objShp In Sheets("sheet3").Shapes If objShp.Name Like "Group *" Then objShp.Ungroup Next
For Each shp In Sheet1.Shapes'删除所有图片,以免越点越多shp.Delete Next For i=2To12Set shp1= Sheet1.Shapes.AddPicture("d:\data\" & Range("a"& i) &".jpg", msoFalse, msoTrue, Range("d"& i).Left, Range("d"& i).Top, Range("d"& i).Width, Range("d"& i).Height)shp1.P...
For Each sPic In ActiveSheet.Shapes sPic.Delete Next End If Sheets(shtName).Activate ActiveSheet.Cells(5, 1) = "序号" Sheets(shtName).Range(Cells(5, 1), Cells(6, 1)).Select With Selection .Merge Across:=False '.Font.Size = 12 ...
For Each shp In sld.Shapes If shp.Name Like "LOGO_*" Then shp.DeleteEnd If Next Next End Sub 1. 2. 3. 4. 5. 6. 7. 8. 9. 而当修改为执行如下的For i = 1 To .Shapes.Count 的vba代码删除ppt中第一页中的所有图片时: Sub DeleteBrandLogo() ...
Set ActiveShape=ActiveSheet.Shapes(UserSelection.Name)On Error Resume Next MsgBox"左侧位置: "&ActiveShape.Left&vbNewLine&_"顶部位置: "&ActiveShape.Top Exit SubNoShapeSelected:MsgBox"没有选择形状!"End Sub 确定形状大小 可以使用VBA修改两个属性来更改形状的大小。这两个属性是形状的Width值和Height值,如...
For Each shp InActiveSheet.Shapes str=str&shp.Name&vbCrLf Next shp MsgBox"工作表中的3个形状名称依次为:"&vbCrLf&str End Sub 运行上述代码的结果如下图2所示。 图2 可以通过名称或索引值来访问Shape对象,例如代码: MsgBox ActiveSheet.Shapes(1).Name ...
通过Shapes集合找到要删除的形状。 使用形状的Delete方法删除它。 Sub DeleteShapeByName() Dim ws As Worksheet Dim shp As Shape ' 设置工作表 Set ws = ThisWorkbook.Sheets('Sheet1') ' 尝试找到并删除名为'MyShape'的形状 For Each shp In ws.Shapes ...
For Each sh In ActiveSheet.Shapes Set varShFormula = ActiveSheet.Shapes.Range(Array(sh.Name)) varShFormula.Select Selection.Formula = "=" & sh.TopLeftCell.Address Next sh End Sub 代码遍历工作表中的形状,将变量varShFormula定义为正在处理的形状对象公式,然后选择该...