如何自动排列循环自动绘制的形状?

Question

我有一个循环，可以在 visio 绘图上自动生成矩形，但我需要脚本自动排列它们，知道我在标题框下手动重新排列矩形时录制了一个宏。但是我的矩形计数不断变化，因为我的 if 语句的结果不断变化，因为我的数据不断变化。我需要我的循环开始在标题框下以六个或七个矩形的列绘制它们。

For I = 1 To WS_Count
Set vsoShape = 
Application.ActiveWindow.Page.Drop(Application.DefaultRectangleDataObject, 
aoffset, boffset)
vsoShape.Text = ActiveWorkbook.Worksheets(I).Name

aoffset = aoffset
boffset = boffset + 0.75
Dev_Count = Dev_Count + 1

ActiveDocument.DiagramServicesEnabled = DiagramServices
Next I

我需要能够设置一个起始位置，以开始将矩形放在标题矩形下方，每六到七个矩形创建一个新列。谢谢

Answer 1

每次I可以被您想要的水平形状数量整除时，都会增加偏移量...

您可以使用 Mod 运算符If (iterator Mod runEveryXIterations = 0) Then ...

下面的示例应该阐明这个想法，代码并不完全是你需要的，但你应该能够掌握这个想法：

Option Explicit
Public Sub printXY()
xyDistribute 10, 3, 0, 0, 0.75, 1.5
End Sub
Private Function xyDistribute(ByRef iterations As Long, _
ByRef newColAfter As Long, _
ByRef xPosInitial As Double, _
ByRef yPosInitial As Double, _
ByRef xStep As Double, _
ByRef yStep As Double)
Dim iter As Long
Dim xPos As Double
Dim yPos As Double
yPos = yPosInitial
xPos = xPosInitial
Debug.Print "xPos", "yPos"
For iter = 1 To iterations
Debug.Print xPos, yPos
' your code goes here
If (iter Mod newColAfter = 0) Then
yPos = yPos + yStep
xPos = xPosInitial
Else
xPos = xPos + xStep
End If
Next iter
End Function