Question

我想知道是否有人可以提供帮助/有任何想法。

我尝试创建一个将运行单词列表的小脚本，并根据它们在列表中出现的次数创建圆圈。我已经有了包含两列的列表。一个是单词，第二个是它出现的次数。

我写的代码可以很好地创建圆圈，但我正在努力的是它们的定位。我希望他们都在一个封闭的区域，也不会重叠。我想知道是否有人对我怎么能得到它有任何想法，所以他们都在一个盒子里，彼此相邻，两者之间没有间隙。

这是我目前的代码：

Sub bubble_test()
Dim ws As Worksheet
Dim cell As Object
Dim sh As Variant
Dim a, b, w, h, tot As Integer
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets("Sheet1")

For Each cell In ThisWorkbook.Sheets("String Analysis").Range("StringAnalysis[Count]")
    tot = tot + cell
Next cell
a = 1
b = 1
For Each cell In ThisWorkbook.Sheets("String Analysis").Range("StringAnalysis[Word]")
    w = (cell.Offset(0, 1) / tot) * 5000
    h = w
    Set sh = ws.Shapes.AddShape(msoShapeOval, a, b, w, h)

    sh.TextFrame.Characters.Text = cell

    a = a + w

Next cell
Application.ScreenUpdating = True
End Sub

提前致谢

汤姆

Excel VBA气泡图/图表

0 个答案: