物件名稱包含變數 + 應用紀錄

Dim s1, s2 As Integer
Sub OnSlideShowPageChange()
    s1 = 1
    s2 = 1
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then
            allhide
            selectphoto (s1)
        ElseIf .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then
            allhide_1
            selectphoto_1 (s2)
        End If
    End With
End Sub
Function allhide()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then
            For i = 1 To 24 Step 1
                .Shapes("windows_splunk_" & Format(i, "00")).Visible = msoFalse
                'format設定2位數，不足2位數補0
            Next i
        End If
    End With
End Function
Function selectphoto(num As Integer)
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then
            .Shapes("windows_splunk_" & Format(num, "00")).Visible = msoTrue
            .Shapes("windows_splunk_" & Format(num, "00")).ZOrder msoBringToFront
        End If
    End With
End Function
Sub photo_back()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then
            s1 = s1 - 1
            If s1 = 0 Then s1 = 24
            allhide
            selectphoto (s1)
        End If
    End With
End Sub
Sub photo_next()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then
            s1 = s1 + 1
            If s1 = 25 Then s1 = 1
            allhide
            selectphoto (s1)
        End If
    End With
End Sub
Function allhide_1()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then
            For i = 1 To 6 Step 1
                .Shapes("windows_forward_" & Format(i, "00")).Visible = msoFalse
            Next i
        End If
    End With
End Function
Function selectphoto_1(num As Integer)
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then
            .Shapes("windows_forward_" & Format(num, "00")).Visible = msoTrue
            .Shapes("windows_forward_" & Format(num, "00")).ZOrder msoBringToFront
        End If
    End With
End Function
Sub photo_back_1()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then
            s2 = s2 - 1
            If s2 = 0 Then s2 = 6
            allhide_1
            selectphoto_1 (s2)
        End If
    End With
End Sub
Sub photo_next_1()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then
            s2 = s2 + 1
            If s2 = 6 Then s2 = 1
            allhide_1
            selectphoto_1 (s2)
        End If
    End With
End Sub

Dim s1, s2 As Integer

Sub OnSlideShowPageChange()

s1 = 1

s2 = 1

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then

allhide

selectphoto (s1)

ElseIf .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then

allhide_1

selectphoto_1 (s2)

End If

End With

End Sub

Function allhide()

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then

For i = 1 To 24 Step 1

.Shapes("windows_splunk_" & Format(i, "00")).Visible = msoFalse

'format設定2位數，不足2位數補0

Next i

End If

End With

End Function

Function selectphoto(num As Integer)

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then

.Shapes("windows_splunk_" & Format(num, "00")).Visible = msoTrue

.Shapes("windows_splunk_" & Format(num, "00")).ZOrder msoBringToFront

End If

End With

End Function

Sub photo_back()

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then

s1 = s1 - 1

If s1 = 0 Then s1 = 24

allhide

selectphoto (s1)

End If

End With

End Sub

Sub photo_next()

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 安裝Splunk" Then

s1 = s1 + 1

If s1 = 25 Then s1 = 1

allhide

selectphoto (s1)

End If

End With

End Sub

Function allhide_1()

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then

For i = 1 To 6 Step 1

.Shapes("windows_forward_" & Format(i, "00")).Visible = msoFalse

Next i

End If

End With

End Function

Function selectphoto_1(num As Integer)

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then

.Shapes("windows_forward_" & Format(num, "00")).Visible = msoTrue

.Shapes("windows_forward_" & Format(num, "00")).ZOrder msoBringToFront

End If

End With

End Function

Sub photo_back_1()

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then

s2 = s2 - 1

If s2 = 0 Then s2 = 6

allhide_1

selectphoto_1 (s2)

End If

End With

End Sub

Sub photo_next_1()

With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)

If .Shapes.Title.TextFrame.TextRange.Text = "Windows 設定 Forward" Then

s2 = s2 + 1

If s2 = 6 Then s2 = 1

allhide_1

selectphoto_1 (s2)

End If

End With

End Sub

物件名稱包含變數 + 應用紀錄

Categories