PowerPoint 2010 - 그림을 대체 할 VBA

내 부서에서 사용하는 슬라이드를 사용하여 프로젝트 문서 산출물에 대한 진행 상황에 대한 개요를 제공합니다. 그래픽 방식으로 표시되므로 간단한 표보기 또는 유사한 기능을 사용할 수 없습니다. 슬라이드에 언급 된 각 문서 제공 물에는 3 개의 다른 범례 (그림), 정사각형, 삼각형 및 화살표가있을 수 있습니다. 이는 산출물의 이해 관계자 책임에 따라 색상으로 구분됩니다. 지금 당장 프로젝트 도중 수동으로 각각을 변경하고 있습니다.PowerPoint 2010 - 그림을 대체 할 VBA

내가 찾고있는 것 : 프로젝트 상태에 따라이 수치를 쉽게 바꿀 수있는 VBA 코드가 있습니까? 각 프로젝트 출력물이 슬라이드의 위치 태그가 필요하다고 가정하면 사용자 폼을 사용하여 할당 할 그림 유형을 선택할 수 있습니다.

나에게 도움이되거나 나를 도울 수있는 누군가가 나를 도와 줄 수있는 사람은 매우 감사합니다!

그룹화 사각형, 삼각형 화살표를 사용하여 ... 당신 피터

출처

2017-02-20 Mayfarm

사이트에 오신 것을 환영합니다. 수동으로 프로세스를 수행한다면, 내가 알아 낸 점은 매크로 레코더를 사용하여 필요한 코드를 빌려 오는 것입니다. [Microsoft의 지침] (https://msdn.microsoft.com/en-us/library/office/ff838320.aspx) 그리고 특정 답변을 얻으려면 [확인해주십시오] (http://stackoverflow.com/help/how-to-ask) –

@Jimmy Smith 불행히도 파워 포인트에는 오랜 세월 이래로 매크로 레코더가 없습니다. MS가 작동을 포기했습니다. –

@ChristineRoss 저는 이것을 몰랐습니다. 저는 주로 Word와 Excel 용으로 몇 년 전에 사용해 왔습니다. OP, 당신이 참조하는 "수치"가 이미지인지 확실하지 않지만 여기에 [빌릴 수있는 예제가 있습니다] (http://stackoverflow.com/questions/28274753/replace-existing-image-in-ms-powerpoint-with). -a-new-image-using-vba) 또는 모양이 단순한 것이라면 [도움이 될 수 있습니다] (http://stackoverflow.com/questions/22099887/change-shape-color-in-a-loop-vba -ppt) –

여기 거친 윤곽에 하나의 접근 방식 대신 개별 모양의

감사드립니다. 사용자는 작업 할 그룹을 선택한 다음 해당 항목에 대한 프로젝트 상태를 선택하는 대화 상자를 시작합니다. 귀하의 대화 상자가 상태에 3-1의 값은 다음 SetVisibility과 같이 호출 할당 :

Sub MakeItSo() 
    Call SetVisibility(2) 
End Sub

SetVisibility 먼저 그룹 보이지 않는에서 모양의 모든 만들고, 그 다음 볼 수 있도록 적절한 모양을 설정합니다

Sub SetVisibility(lStatus As Long) 
    Dim x As Long 
    With ActiveWindow.Selection.ShapeRange(1) 
     For x = 1 To .GroupItems.Count 
      .GroupItems(x).Visible = False 
     Next 
     .GroupItems(lStatus).Visible = True 
    End With 
End Sub

출처

2017-02-21 16:44:55

좋은 아이디어! 나는 그 대신에 그것을 추구하려고 노력할 것이고 또한 유지하는 것이 더 간단하게 할 것이다! 고마워요! – Mayfarm

PowerPoint 2010 - 그림을 대체 할 VBA

답변

관련 문제