設定元件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

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) 時要一併移到前面
否則會看不出效果

This entry was posted in Office, PowerPoint. Bookmark the permalink.

設定元件Visible屬性

Categories