2 vba_Excel 词云

最新推荐文章于 2023-10-12 10:42:14 发布

Captain_Data

最新推荐文章于 2023-10-12 10:42:14 发布

阅读量1.8k

点赞数

分类专栏： vba

本文链接：https://blog.csdn.net/Captain_DUDU/article/details/103296519

版权

vba 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

 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