Home » エクセルマクロ・Excel VBAの使い方 » Shapesコレクション・Shapeオブジェクト » VBAで画像の上下・左右を反転する-Flipメソッド

VBAで画像の上下・左右を反転する-Flipメソッド

動作検証バージョン:64bit Windows 10 Pro + 32bit Excel(バージョン2108 ビルド14326.20348 Microsoft Store)

Excel.Shape.Flip

「マクロ 画像 上下反転」
といった検索キーワードでアクセスがありました。
詳細は不明ですが、何らかのアプリケーションで、画像の上下を反転させるマクロを作るにはどうすればいいのかを探していた方による検索でしょう。

ここでは、アクティブシート上に存在する画像の上下反転を行う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

Shape.Flipメソッドで上下・左右を反転できる

ShapeオブジェクトやShapeRangeオブジェクトに用意されているFlipメソッドを使うと、上下や左右を反転できます。

オブジェクトブラウザーで「Flip」を完全一致検索した結果

上下を反転させるために、上記のSubプロシージャではShape.Flipメソッドの引数に、MsoFlipCmd列挙型に定義されている定数msoFlipVertical(実際の値は1)を指定しています。

Office.MsoFlipCmd.msoFlipVertical

Shape.Flipメソッドの引数に指定する定数をmsoFlipHorizontal(実際の値は0)にすれば、左右が反転します。

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » Shapesコレクション・Shapeオブジェクト » VBAで画像の上下・左右を反転する-Flipメソッド

TrackBack:0

TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » Shapesコレクション・Shapeオブジェクト » VBAで画像の上下・左右を反転する-Flipメソッド

「Shapesコレクション・Shapeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.