Category Archives: PowerPoint

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

Posted on 2013 年 05 月 15 日 by cowman.chiang

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

Posted in PowerPoint | Leave a comment

設定元件Visible屬性

Posted on 2013 年 02 月 08 日 by cowman.chiang

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

Posted in Office, PowerPoint | Leave a comment

當投影片切換時 (VBA)

Posted on 2013 年 02 月 08 日 by cowman.chiang

Sub OnSlideShowPageChange()
    MsgBox ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber).Shapes.Title.TextFrame.TextRange.Text
End Sub

Sub OnSlideShowPageChange()

MsgBox ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber).Shapes.Title.TextFrame.TextRange.Text

End Sub

Posted in Office, PowerPoint | Leave a comment

Powerpoint VBA: 取得當前Slide編號

Posted on 2013 年 02 月 08 日 by cowman.chiang

主要有兩種 1.

ActiveWindow.Selection.SlideRange.SlideNumber

1	ActiveWindow.Selection.SlideRange.SlideNumber

此處主要是在一般狀態下 (非簡報播放) 適合用來Debug 2.

SlideShowWindows(1).View.Slide.SlideIndex

1	SlideShowWindows(1).View.Slide.SlideIndex

此處主要是當簡報播放情況下 ( 所以一般Debug模式會出錯 ) 以下為實際應用

Sub Picture76_4()
    With ActivePresentation.Slides(SlideShowWindows(1).View.Slide.SlideIndex)
        If .Shapes.Title.TextFrame.TextRange.Text = "Splunk for Unix and Linux" Then
            .Shapes("Picture 4").ZOrder msoBringToFront
        End If
    End With
End Sub
Sub Picture76_5()
    With ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber)
        MsgBox .Shapes.Title.TextFrame.TextRange.Text
        If .Shapes.Title.TextFrame.TextRange.Text = "Splunk for Unix and Linux" Then
            .Shapes("Picture 5").ZOrder msoBringToFront
        End If
    End With
End Sub

Sub Picture76_4()

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

If .Shapes.Title.TextFrame.TextRange.Text = "Splunk for Unix and Linux" Then

.Shapes("Picture 4").ZOrder msoBringToFront

End If

End With

End Sub

Sub Picture76_5()

With ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideNumber)

MsgBox .Shapes.Title.TextFrame.TextRange.Text

If .Shapes.Title.TextFrame.TextRange.Text = "Splunk for Unix and Linux" Then

.Shapes("Picture 5").ZOrder msoBringToFront

End If

End With

End Sub

Posted in Office, PowerPoint | Leave a comment

PowerPoint巨集，將物件移到最前面

Posted on 2013 年 01 月 31 日 by cowman.chiang

查詢物件名稱

Sub Who_AM_I()
    With ActiveWindow.Selection.ShapeRange(1)
        MsgBox .Name
    End With
End Sub

Sub Who_AM_I()

With ActiveWindow.Selection.ShapeRange(1)

MsgBox .Name

End With

End Sub

將物件移到最前面

Sub Bringtofront()
    ActivePresentation.Slides(第幾張投影片).Shapes("物件名稱").ZOrder msoBringToFront
End Sub

Sub Bringtofront()

ActivePresentation.Slides(第幾張投影片).Shapes("物件名稱").ZOrder msoBringToFront

End Sub

Posted in Office, PowerPoint | Leave a comment

Category Archives: PowerPoint

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

設定元件Visible屬性

當投影片切換時 (VBA)

Powerpoint VBA: 取得當前Slide編號

PowerPoint巨集，將物件移到最前面

Categories