設定元件Visible屬性

Sub Picture25_visible()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Splunk 優點" Then
            .Shapes("圖片 25").Visible = -1
            .Shapes("圖片 25").ZOrder msoBringToFront
            End If
    End With
End Sub
Sub Picture25_hide()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Splunk 優點" Then
            .Shapes("圖片 25").Visible = msoFalse
        End If
    End With
End Sub

記得當visible=msoTure (-1) 時要一併移到前面
否則會看不出效果