首页 > 其他分享 >cdr vb 动态定义数组 遍历对象里面包含群组的

cdr vb 动态定义数组 遍历对象里面包含群组的

时间:2023-02-01 12:03:35浏览次数:45  
标签:vb 数组 IfEnd 群组 ThenIf cdr sts sson String


Function 显示内容()
Dim s As Shape
Dim sson As Shape
Dim ison As Integer
Dim flag As Boolean
Dim al As Integer
If ActiveSelection.Shapes.count > 0 Then
Dim sts() As String
Dim k As Integer
k = 0
For Each s In ActiveSelection.Shapes
For Each sson In s.Shapes.All
If sson.Type = cdrTextShape Then
If sson.Fill.UniformColor.CMYKBlack = 100 Then
If k <> 0 Then
flag = 是否存在数组里面(sts, sson.Text.Story.Text)
End If
If flag = False Then
ReDim Preserve sts(k)
sts(k) = sson.Text.Story.Text
k = k + 1
End If
End If
End If
Next
Next
Dim abc As String
For i = 0 To UBound(sts)
abc = abc + sts(i) + Chr(10)
Next
UserForm5.TextBox1.Value = abc
End If
End Function

Function 是否存在数组里面(arr() As String, s As String) As Boolean

Dim i As Integer
For i = 0 To UBound(arr)
If 是否存在数组里面 = False Then
If arr(i) = s Then
是否存在数组里面 = True
End If
End If
Next
End Function


标签:vb,数组,IfEnd,群组,ThenIf,cdr,sts,sson,String
From: https://blog.51cto.com/u_10780206/6031179

相关文章