画像反転

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

画像反転
画像反転

 

< スポンサーリンク >