[[20200509204821]]　『【報告】「図形への影の付け方」[中途B]　についａx（中途B）　ページの最後に飛ぶ

『【報告】「図形への影の付け方」[中途B]　について』（中途B）

投稿
[[20180616150749]] 『図形への影の付け方』（中途B）　
について、
たいへん古い話で今更感が半端ないですが、
この件に関するプロパティにたまたま遭遇しました。

過去ログには無さそうだったので、
今後誰かの役に立てばと思い、報告だけさせて頂きます。

    Sub AddShadowToCell(Optional ByVal SelRange As Range)
        If SelRange Is Nothing Then
            If ActiveWindow Is Nothing Then Exit Sub
            Set SelRange = ActiveWindow.RangeSelection
        End If
        With ActiveSheet.Shapes.AddShape(msoShapeRectangle, SelRange.Left, SelRange.Top, SelRange.Width, SelRange.Height)
            .Fill.Solid
            .Fill.Visible = msoFalse
            .Line.ForeColor.RGB = &H0&
            .Line.Weight = 1
    '        .Line.Visible = msoFalse
            .Shadow.Type = msoShadow21
            .Shadow.Obscured = msoTrue '←コイツっぽいです
        End With
    End Sub

以上、その節はお世話になりました。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

もう２年近くなるのですね。早いなあ。
あのとき全部のプロパティを見たはずなのですが、確かにそれですね。
ヘルプにも、以下の記載がキチンと有りますね。
Trueの場合は、指定した図形の影が塗りつぶされ、図形に塗りつぶしがない場合でも、図形は不透明になります。

（kazuo） 2020/05/09(土) 22:11

コメント返信：

[ 一覧(最新更新順) ]

[[20200509204821]] 『【報告】「図形への影の付け方」[中途B] についａx（中途B） ページの最後に飛ぶ

[[20200509204821]]　『【報告】「図形への影の付け方」[中途B]　についａx（中途B）　ページの最後に飛ぶ