일부 보고를 자동화하기 위해 추가 기능을 개발 중입니다.
- 다양한 차트 및 표의 이미지 파일에 대한 링크가 포함된 보고서 템플릿 PowerPoint 파일이 있습니다. (첨부 참조)
- 사용자가 "활성 보고서에 추가" 버튼을 클릭하면 보고서에 새 차트나 표가 표시되도록 해당 이미지 파일을 덮어씁니다.
내가 겪고 있는 문제는 PowerPoint 문서의 링크를 업데이트해야 한다는 것입니다."새 보고서 만들기"라고 말하고 템플릿과 기본 이미지를 새 폴더에 복사하고 새 PowerPoint 파일의 링크를 업데이트하여 새 폴더 대신 새 폴더의 이미지 파일을 가리키도록 하고 싶습니다. 템플릿 폴더에 있는 이미지 파일.어떻게 하면 될까요?
많은 감사,
남자
안녕 @johnmoore , 비슷한 문제에 직면했습니다. 저는 파워 포인트에서 회사 템플릿을 사용하여 패키지를 계속 업데이트하는 것이 어렵다는 것을 알고 있으며 모든 파워 포인트 패키지에 "기본적으로 동일한 차트", 항상 같은 위치에 있지만 유일한 차이점은 특정 보고서에 필요한 원시 데이터입니다.
나는 VBA의 전문가는 아니지만 필요한 것이 있으면 여기저기서 계속 검색하고 솔루션을 만들거나 찾을 수 있을 때까지 시행착오를 반복합니다.
이것은 내가 따르는 접근 방식이며 지금까지 비슷한 것이 있을 수 있습니다.
- JMP에서는 JSL을 통해 분석(이미지)을 PC의 폴더로 보내고 각 이미지에 특정 이름을 지정합니다(이름을 동일하게 지정하면 덮어쓰기만 하므로 절대 동일하지 않음). 파워 포인트에서 각 특정 이미지의 위치를 사용자 지정하고 각 이미지에 대한 링크를 만들면 매크로 파일로 저장합니다(이것이 템플릿이 됨).
- 템플릿을 열고 새 보고서가 필요할 때마다 매크로를 실행하세요.
- 마지막으로 파일을 매크로가 아닌 다른 이름으로 저장하여 다음에 사용할 이미지가 있는 템플릿을 유지합니다.
이것이 도움이 되기를 바랍니다. 스크립트의 변경을 피하기 위해 매크로에 암호를 입력하는 것이 좋습니다.
문안 인사.
하위 LinkedGraphsToPictures()
'작성: Andres Gonzalez, 2019년 3월
'목적: 연결된 그래프를 일반 이미지로 변경
모양으로 희미한 shp
슬라이드로 희미한 sld
모양으로 희미한 그림
Dim shp_left As Double
Dim shp_top As Double
Dim sld_count As Long
'ActivePresentation의 각 슬라이드 반복
ActivePresentation.Slides의 각 sld에 대해
sld_count = ActivePresentation.Slides.Count의 경우 1 단계 -1
' 차트 삭제로 인해 차트를 건너뛰는 것을 방지하기 위해 역으로 카운트하려면 -1로 카운트
sld = ActivePresentation.Slides(sld_count) 설정
sld.Shapes의 각 shp에 대해
shp.Type = msoLinkedPicture이면
'현재 위치 검색
shp_left = shp.Left
shp_top = shp.Top
'그림으로 복사/붙여넣기
shp.Copy
sld.Shapes.Paste특수 데이터 유형:=ppPastePNG
사진 설정 = sld.Shapes(sld.Shapes.Count)
'연결된 도형 삭제
shp.삭제
' 새로 붙여 넣은 사진 위치 변경
pic.Left = shp_left
pic.Top = shp_top
종료
다음 shp
다음 sld_count
다음 sld
엔드 서브
