図形を反転させる【Shape.Flipメソッド】【ExcelVBA】

Shape.Flipメソッド

図形(オートシェイプ)を反転させたいときは Shape.Flipメソッド を使用します。
Shape.Flipメソッド を使えば、上下左右反転させることが可能です。

構文
Object.Flip (FlipCmd)

図形を反転させるサンプルコード

Public Sub Sample()
  '図形(ふきだし)を作成
   ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 50, 50, 100, 80).Name = "図形 1"
   ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 150, 50, 100, 80).Name = "図形 2"
   ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 250, 50, 100, 80).Name = "図形 3"

'■単体の図形を反転させる
  '左右反転
   ActiveSheet.Shapes("図形 1").Flip msoFlipHorizontal
   
  '上下反転
   ActiveSheet.Shapes("図形 1").Flip msoFlipVertical

'■複数の図形を反転させる
  '複数の図形を選択
   ActiveSheet.Shapes.Range(Array("図形 1", "図形 3")).Select
   
  '選択中の図形を左右反転
   Selection.ShapeRange.Flip msoFlipHorizontal

End Sub

Public Sub Sample2()
'■全ての図形を反転させる
   Dim shp As Shape
 
  'ループして全ての図形を左右反転
   For Each shp In ActiveSheet.Shapes
         shp.Flip msoFlipHorizontal
   Next shp

End Sub

注意点

• 図形の”反転”は”回転”とは別物です。
  ※図形の回転についてはコチラをご覧ください。

関連記事

• 図形(オートシェイプ)を作成する【Shapes.AddShapeメソッド】
• 図形に名前をつける/取得する【Shape.Nameプロパティ】
• 図形を複数選択する方法【Select Replace】【Rangeプロパティ】
• 図形を回転させる【Shape.Rotationプロパティ】