vba如何对不同图形计数

多个同名的形状如何统计数量?
例如表格内有很多同名的”梯形 1″的形状和其它形状,我想统计出有多少个”梯形 1″的数量。

如下图所示:

vba如何对不同图形计数

代码如下:

Option Explicit

Public Sub abc()
Dim x As Shape, I, j, n, a, b
Dim d As Object
Set d = CreateObject(“Scripting.Dictionary”)
For Each x In ActiveSheet.Shapes
If InStr(“Oval,图片”, Split(x.Name, ” “)(0)) Then
d(Split(x.Name, ” “)(0)) = d(Split(x.Name, ” “)(0)) + 1
End If
Next
a = d(“Oval”): b = d(“图片”)
MsgBox “a:” & a & vbCr & “b:” & b
End Sub

 

未经允许不得转载:飞鹰图表 » vba如何对不同图形计数
分享到:

评论抢沙发

评论前必须登录!