모양을 선택하고 매크로를 실행하여 색상을 채우는 방법은 무엇입니까?

Question

나는 모양을 선택하고 그런 PowerPoint 프레젠테이션의 색상이 모양을 채우기 위해 노력하고 있어요 (I 녹색 버튼을 내 코드를 넣어) :

Sub ChangeInRed() 


    If ActiveWindow.Selection.Type = ppSelectionNone Then 
     MsgBox "Please selecte a zone !" 
    Else 
     For Each shp In ActiveWindow.Selection.ShapeRange 
      shp.Fill.ForeColor.RGB = RGB(255, 0, 0) 
     Next shp 
    End If 


End Sub 

I 매크로 코드에서 내 코드를 실행하면, 선택한 모양이 빨간색으로 바뀝니다. 셰이프를 선택하지 않으면 내 코드가 표시됩니다. "영역을 선택하십시오."

모두 좋지만 편집 모드에서이 버튼을 실행하기 위해 내 버튼이 활성화되어 있지 않으며이를 프리젠 테이션 모드로 시도했습니다.

프리젠 테이션 모드에서 모양을 선택하려고하면 슬라이드 쇼가 다음 페이지로 이동하지만 필요하지 않습니다.

모양을 선택하고 단추를 눌러 색을 빨간색으로 변경하거나 모양을 클릭하고 색을 변경하고 싶습니다.

매크로 코드의 맨 위에서 코드를 시도하면 모양이 빨간색으로 바뀌지 만 프레젠테이션에서는 바뀌지 않습니다.

제 질문은 : 프레젠테이션 모드에서 모양을 선택하고 색상을 변경하는 방법은 무엇입니까?

Answer 1

슬라이드 쇼 중에 모양을 변경하려면 아래 매크로를 PowerPoint .pptm (또는 .ppsm) 파일로 복사 한 다음 선택한 모양으로 PowerPoint 리본으로 이동하여 을 삽입하십시오./액션과 마우스로는 탭을 클릭 매크로 실행을 클릭하고 ChangeShapeColour 매크로 OK을 클릭하기 전에 선택되어 있는지 확인합니다. 내가 하나의 형상에 대한 코드를 넣어,하지만 난 버튼이 넣어하려고하면 나는 색상 모양에 그를 클릭하면 내가 어떻게 할 모시의 경우

는

Option Explicit 

Sub ChangeShapeColour(ByRef oShp As Shape) 
    oShp.Fill.ForeColor.RGB = RGB(255, 0, 0) 
End Sub