Excel VBA 図形や画像（オートシェイプ）位置を基準に影の位置を決める-Shadow.OffsetX、OffsetY

Excel VBAでシート上にある図形や画像（オートシェイプ）の位置を基準に影の横位置、縦位置を設定する記録です。

影の横位置を設定するには「OffsetX」プロパティ、縦位置を設定するには「OffsetY」を使います。

指定した図形や画像の水平方向または垂直方向のオフセットをポイント単位で設定します。

OffsetX：正の値は右側に負の値は左側になります。
OffsetY：正の値は下側に負の値は上側になります。

< スポンサーリンク >

図形や画像（オートシェイプ）位置を基準に影の位置を決める例

元の図形。

図形から右、下へ10ポイントの方向の影を表示します。

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

    With shp.Shadow
        .Visible = True
        .OffsetX = 10
        .OffsetY = 10
    End With
End Sub

図形から左、下へ10ポイントの方向の影を表示します。

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

    With shp.Shadow
        .Visible = True
        .OffsetX = -10
        .OffsetY = 10
    End With
End Sub