|
解決しました
早とちりで質問しました。ご迷惑をおわびします。
回転された図形のTop Leftは違ってくるのですね。
以下のように修正して確認しました。
回転角度を一旦0に戻してから展開図作成を続行できそうです。
Sub 右回転()
'グループ化して名前を「グループ1」とする
ActiveSheet.Shapes.SelectAll
On Error Resume Next
Selection.Group.Name = "Group1"
'15度回転
Shapes("Group1").Rotation = Shapes("Group1").Rotation + 15
End Sub
Sub 左回転()
ActiveSheet.Shapes.SelectAll
On Error Resume Next
Selection.Group.Name = "Group1"
Shapes("Group1").Rotation = Shapes("Group1").Rotation - 15
End Sub
回転を0に戻してズレていない事を確認しました。
Sub 元に戻す()
ActiveSheet.Shapes.SelectAll
On Error Resume Next
Selection.Group.Name = "Group1"
'回転角度を0にする
ActiveSheet.Shapes("Group1").Rotation = 0
Shapes("Group1").Ungroup
Application.Wait (Now + TimeValue("0:00:1"))
MsgBox ズレ
End Sub
|
|