Excel VBA シート上の画像や図形を左右、上下反転する-Flip

Excel VBAでシート上にある画像や図形（オートシェイプ）を左右や上下に反転する記録です。

画像や図形反転するには「Flip」プロパティを使います。

下図は、Excel2016です。

< スポンサーリンク >

例

画像を左右反転してみます。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp
        .Flip msoFlipHorizontal
    End With
End Sub

画像を上下反転してみます。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp
        .Flip msoFlipVertical
    End With
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします