Excel VBA シート上の画像や図形（オートシェイプ）に影を表示、非表示にする-Shadow.Type、Visible

Excel VBAでシート上にある画像や図形（オートシェイプ）の影を表示したり、非表示にしたりする記録です。

影は「Shadow」プロパティを使い、影の形は「Type」プロパティ、影の表示・非表示は「Visible」プロパティを使います。

< スポンサーリンク >

画像や図形（オートシェイプ）の影の形

影の形「Type」プロパティは43種類あります。
「・・・Shadow.Type = msoShadow1」
msoShadowの数値を変えます。

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

    With shp.Shadow
        .Type = msoShadow1
    End With
End Sub

Shadow.Type = msoShadow1

Shadow.Type = msoShadow2

Shadow.Type = msoShadow3

Shadow.Type = msoShadow4

Shadow.Type = msoShadow5

Shadow.Type = msoShadow6

Shadow.Type = msoShadow7

Shadow.Type = msoShadow8

Shadow.Type = msoShadow9

Shadow.Type = msoShadow10

Shadow.Type = msoShadow11

Shadow.Type = msoShadow12

Shadow.Type = msoShadow13

Shadow.Type = msoShadow14

Shadow.Type = msoShadow15

Shadow.Type = msoShadow16

Shadow.Type = msoShadow17

Shadow.Type = msoShadow18

Shadow.Type = msoShadow19

Shadow.Type = msoShadow20

Shadow.Type = msoShadow21

Shadow.Type = msoShadow22

Shadow.Type = msoShadow23

Shadow.Type = msoShadow24

Shadow.Type = msoShadow25

Shadow.Type = msoShadow26

Shadow.Type = msoShadow27

Shadow.Type = msoShadow28

Shadow.Type = msoShadow29

Shadow.Type = msoShadow30

Shadow.Type = msoShadow31

Shadow.Type = msoShadow32

Shadow.Type = msoShadow33

Shadow.Type = msoShadow34

Shadow.Type = msoShadow35

Shadow.Type = msoShadow36

Shadow.Type = msoShadow37

Shadow.Type = msoShadow38

Shadow.Type = msoShadow39

Shadow.Type = msoShadow40

Shadow.Type = msoShadow41

Shadow.Type = msoShadow42

Shadow.Type = msoShadow43

画像や図形（オートシェイプ）の影を表示・非表示

影が表示されない場合は、「Visible」プロパティをTrueに設定します。

Sub test()
    With ActiveSheet.Shapes(1).Shadow
        .Type = 1
        .Visible = True
    End With
End Sub

影を非表示にしたい場合は、「Visible」プロパティをFalseに設定します。

Sub test()
    With ActiveSheet.Shapes(1).Shadow
        .Visible = False
    End With
End Sub