こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ShapesRange.Rotation

Sheetに描画オブジェクト Shapes(1) があります。
これを回転させるのに、次のコードだとエラーになります。
Sub Test()
ActiveSheet.Shapes(1).ShapeRange.Rotation = 90
End Sub
次のコードだと実行できます。
Sub Test2()
ActiveSheet.Shapes(1).Select
Selection.ShapeRange.Rotation = 90
End Sub
Selectしないで回転させるにはどう書いたらいいのでしょうか?教えてください。

投稿日時 - 2019-01-15 10:27:42

QNo.9577976

困ってます

質問者が選んだベストアンサー

ActiveSheet.Shapes(1).Rotation = 90

投稿日時 - 2019-01-15 11:17:52

お礼

watabe007様
有難うございました、解決しました。

投稿日時 - 2019-01-15 11:40:20

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(2)

ANo.1

単独のシェイプを操作する場合、IncrementRotationメソッドを使います。

Sub Test()
  ActiveSheet.Shapes(1).IncrementRotation 90
End Sub

投稿日時 - 2019-01-15 11:09:06

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-