Sub a9()
Dim str As String
str = ""
ActiveSheet.Shapes.Range(Array("Cloud Callout 1")).Select
For i = 3 To Application.CountA(Range("b:b")) + 2
str = str + Range("b" & i) + " "
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = str
Next
L = 1
For i = 3 To Application.CountA(Range("b:B")) + 2
With Selection.Characters(L, Len(Range("b" & i))).Font
.Size = Range("c" & i)
.ColorIndex = Range("d" & i)
End With
L = Len(Range("b" & i)) + 2 + L
Next
End Sub
2 vba_Excel 词云
猜你喜欢
转载自blog.csdn.net/Captain_DUDU/article/details/103296519
今日推荐
周排行