図面の再配置

Private Sub ComboBox1_Change()

Dim shp As Shape

Dim s As String

s = ""

For Each shp In Shapes

s = s + shp.Name + vbCr

Next

With Shapes("maplist")

.TextFrame2.TextRange.Text = s + "Here is some test text"

End With

End Sub

Sub positioning()

Dim s() As String, sleft() As String

Dim sright() As String

Dim x As Double, y As Double, x0 As Double, y0 As Double

Dim dx As Double, dy As Double

s = Split("map17,map21,map25,map23,map18,map22,map26,map24", ",")

sleft = Split("map17,map21,map25,map23", ",")

sright = Split("map18,map22,map26,map24", ",")

Shapes.Range(sright).Left = Shapes(s(4)).Left

dy = CDbl(Shapes(s(1)).Top) - CDbl(Shapes(s(0)).Top)

Shapes(s(2)).Top = dy + Shapes(s(1)).Top

Shapes(s(3)).Top = dy + Shapes(s(2)).Top

Shapes(s(4)).Top = Shapes(s(0)).Top

Shapes(s(5)).Top = Shapes(s(1)).Top

Shapes(s(6)).Top = Shapes(s(2)).Top

Shapes(s(7)).Top = Shapes(s(3)).Top

End Sub