나눔터  
  HOME > 나눔터 > 묻고답하기 > 파워포인트
파워포인트
파워포인트에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 김도연 (tks9567)

추천:  0
파일:     조회:  1285
제목:   ppt 메크로 에러 질문
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 파워포인트 버전(95,97,2000,xp,2003,2007):
오피스 365
* 아래줄에 질문을 작성하세요 >> 

안녕하세요.

매크로 실행하면 인풋박스창이 나오고 창에서 슬라이드 번호 입력 (ex : 3,5,10) 입력하면
3,5,10번 슬라이드가 선택되는 매크로를 생각하고 있습니다. 
한개는 하겠는데 여러 슬라이드 선택하는것이 안됩니다. 고수님들 답변 기다립니다. 

Sub test()

Dim strresponse2 As String
Dim iresponse2 As String
strresponse2 = InputBox("페이지 번호를 입력하세요" & vbCr & "(구분자는 , 콤마입니다.)" & vbCr & "ex) 2,4,11,5" & vbCr & "없는경우 ""취소""를 눌러주세요")

If IsNumeric(strresponse2) Then
iresponse2 = strresponse2
End If

ActiveWindow.Selection.Unselect
ActivePresentation.slides.Range(Array(iresponse2)).Select
'여기서 에러남 
'ActivePresentation.Slides.Range(Array(2, 4, 11,5)).Select
'이렇게 하면 에러가 안남
End Sub

이상입니다.
 
[불량 게시물 신고]  
        
  

작성일 : 2022-06-10(18:02)
최종수정일 : 2022-06-10(18:02)