Excel VBA BubbleChart /信息图表

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

我正在尝试创build一个脚本来运行一个单词列表，并根据列表中显示的次数创build一个圈子。 我已经得到了包含两列的列表。 一个是这个词，另一个是它出现的次数。

我写的代码可以很好地创build这些圈子，但是我正在努力的是他们的定位。 我希望他们都在一个封闭的领域，也不重叠。 我想知道如果有人有任何想法，我怎么能得到它，所以他们都在一个盒子里，彼此相邻，没有他们之间的差距。

这是我现在的代码：

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 

提前致谢

汤姆