Excel VBAでシート上にある画像や図形の影を表示したり、非表示にしたりする記録です。
影は「Shadow」プロパティを使い、影の形は「Type」プロパティ、影の表示・非表示は「Visible」プロパティを使います。
下図は、Excel2016です。
< スポンサーリンク >
例
影の形「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
こんな記事も書いています