사용해야하는 버튼에 대한 매크로 (아래)가 있습니다. 내가 원하는 lngCurr
것은 레이아웃 '섹션 헤더' 의 값을 변경하고 매크로가 실행될 때 사용자가 특정 레이아웃의 슬라이드의 마지막 인스턴스로 돌아가도록 만드는 것입니다.
Dim lngCurr As Long lngCurr = SlideShowWindows(1).View.CurrentShowPosition SlideShowWindows(1).View.GotoSlide (lngCurr - 1), msoTrue
다음은 지정된 레이아웃으로 마지막 슬라이드의 슬라이드 인덱스를 반환하는 함수입니다. 거기에 더해 당신이 가진 것이 당신을 거기에 가져다 줄 것입니다.
Sub Test()
MsgBox LastSlideWithLayout("Section header")
End Sub
Function LastSlideWithLayout(sLayoutName As String) As Long
Dim oSl As Slide
Dim x As Long
For x = ActivePresentation.Slides.Count To 1 Step -1
Set oSl = ActivePresentation.Slides(x)
If UCase(oSl.CustomLayout.Name) = UCase(sLayoutName) Then
LastSlideWithLayout = x
Exit Function
End If
Next
' return 0 to indicate that no slides with this layout were found
LastSlideWithLayout = 0
End Function
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다