Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38816 / 76732 ←次へ | 前へ→

【43046】Re:図形を回転すると位置がズレル?
お礼  yata  - 06/9/30(土) 9:38 -

引用なし
パスワード
   解決しました
早とちりで質問しました。ご迷惑をおわびします。
回転された図形の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
0 hits

【43038】図形を回転すると位置がズレル? yata 06/9/29(金) 22:13 質問
【43046】Re:図形を回転すると位置がズレル? yata 06/9/30(土) 9:38 お礼

38816 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free