Excel VBA 根据图形或图像（自动成型）定位阴影位置-Shadow.OffsetX、OffsetY

本文由日文译成中文。

这是使用 Excel VBA 根据工作表中形状或图像（自动形状）的位置设置阴影的水平和垂直位置的记录。

使用 “OffsetX ”属性设置阴影的水平位置，使用 “OffsetY ”属性设置阴影的垂直位置。

以点为单位设置指定形状或图像的水平或垂直偏移。

OffsetX：正值向右，负值向左。
OffsetY：正值在下，负值在上。

< Sponsored Links >

根据图形或图像（自动成型）位置确定阴影位置的示例

原图。

阴影 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

< Sponsored Links >