動作検証バージョン:64bit Windows 10 Pro + 32bit Excel(バージョン2108 ビルド14326.20348 Microsoft Store)
「マクロ 画像 上下反転」
といった検索キーワードでアクセスがありました。
詳細は不明ですが、何らかのアプリケーションで、画像の上下を反転させるマクロを作るにはどうすればいいのかを探していた方による検索でしょう。
ここでは、アクティブシート上に存在する画像の上下反転を行うExcelマクロをご紹介します。
画像の上下を反転するサンプルマクロ
以下のSubプロシージャを実行すると、アクティブシートに存在する画像の上下が反転します。
Sub 画像の上下を反転する()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Flip msoFlipVertical
End If
Next
End Sub
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Flip msoFlipVertical
End If
Next
End Sub
Shape.Flipメソッドで上下・左右を反転できる
ShapeオブジェクトやShapeRangeオブジェクトに用意されているFlipメソッドを使うと、上下や左右を反転できます。
上下を反転させるために、上記のSubプロシージャではShape.Flipメソッドの引数に、MsoFlipCmd列挙型に定義されている定数msoFlipVertical(実際の値は1)を指定しています。
Shape.Flipメソッドの引数に指定する定数をmsoFlipHorizontal(実際の値は0)にすれば、左右が反転します。
最終更新日時:2022-10-06 06:03
[スポンサードリンク]
Home » エクセルマクロ・Excel VBAの使い方 » Shapesコレクション・Shapeオブジェクト » VBAで画像の上下・左右を反転する-Flipメソッド