파워 포인트에서 버튼을 클릭 할 때 모양을 채우는 방법은 무엇입니까?

Question

선택한 도형의 색상을 변경하고 싶습니다. 하나의 도형을 클릭하고 버튼을 클릭하면 그림과 같이 빨간색으로 색상을 변경하지만 버튼을 누르면 색상이 변경됩니다.

버튼을 만드는 방법 선택한 색상 도형을 변경하려면 조건을 넣으시겠습니까?

다른 도형을 눌러 색상을 변경하려고했으나 원하는 게 아닙니다.

감사합니다 그래서 먼저 많은

Answer 1

OK, 당신이 선택한 모양의 색상을 변경하려고하기 때문에, 이것은 당신이 일반 (편집)보기에 의미가 아니라 슬라이드 쇼 . 둘째, 매크로를 실행하는 ActiveX 단추 또는 셰이프는 슬라이드 쇼 모드에서만 클릭 할 수 있습니다. 따라서 일반보기에서 "단추"를 사용하는 유일한 옵션은 Office의 리본 확장 성 기능을 사용하는 것입니다. 단추의 XML을 PowerPoint 파일의 customUI에 추가하고이 단추가 실행될 수 있도록 연관된 매크로를 만들어야합니다. 예를 들어, CustomUI Editor 사용하여 파일이 XML을 추가

// Fluent UI customisation to add a single button to the PowerPoint ribbon // 
// Written by Jamie Garroch of YOUpresent Ltd. http://youpresent.co.uk // 
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> 
    <ribbon> 
    <tabs> 
     <tab id="tabMyTab" label="My Tab"> 
     <group id="grpMyGroup" label="My Group"> 
      <button id="btnMyButton" label="My Button" onAction="MyMacro"/> 
     </group> 
     </tab> 
    </tabs> 
    </ribbon> 
</customUI> 

은 ... 다음 CustomUI 편집기에서 파일을 닫고 PowerPoint에서 다시 엽니 다. 다음 채우기 색상이 변경됩니다보기에서 슬라이드 형 도형의 단일 선택한 모양이 경우, 사용자 정의 탭 내 탭에 내 버튼을 클릭하면 이제

' PowerPoint macro to change the fill colour of a single selected shape 
' Written by Jamie Garroch of YOUpresent Ltd. http://youpresent.co.uk 
Public Sub MyMacro(control As IRibbonControl) 
    With ActiveWindow.Selection 
    If .Type = ppSelectionShapes Then 
     If .ShapeRange.Count = 1 Then 
     If .ShapeRange.Type = msoAutoShape Then 
      .ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) 
     End If 
     End If 
    End If 
    End With 
End Sub 

: 그런 다음 매크로를 추가 빨간색으로.