有关形状的一些操作函数

2020-05-27 08:00:00

zstmtony

原创

2574

判断指定的图形形状shape是否存在

Function shapeExists(shapeName As String) As Boolean
'returns TRUE if a shape named [ShapeName] exists on the active worksheet
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Name = shapeName Then shapeExists = True
Next sh
End Function
Example usage:

If Not shapeExists("My Shape Name") Then MsgBox "Shape not found!"
List All Shapes

列出当前工作表中所有图形形状（shape)

Sub ListAllShapes()
'list all shapes on the active worksheet
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
Debug.Print "id=" & sh.ID, "name=" & sh.Name
Next sh
End Sub

删除所有形状

Sub DeleteAllShapes()
'delete all shapes on the active worksheet (Including CONTROLS, so use with caution!)
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next sh

End Sub

Sub 判断形状是否存在()
On Error GoTo info
Sheet1.Shapes("test").Select
Exit Sub
info:
MsgBox "不存在此形状"
End Sub

Access数据库自身

Access数据表技巧

Access查询技巧

Access窗体控件

Access报表图表

Access VBA函数模块

Access Dao/Ado/链接表

Access Activex第三方控件

Access ADP Sql Server等

Access 行业应用开发

文章分类

联系我们

联系人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01