powerpoint-vba

    -1

    2답변

    Excel 문서의 데이터를 사용하여 Excel VBA에서 PowerPoint를 만드는 코드를 작성하고 있습니다. 이 문서에서는 IMG라는 시트가 있는데 여기에는 "그림 X"라는 일련의 이미지가 있으며 X는 현재 그림의 번호입니다. 이 그림을 복사하여 각각의 PowerPoint 슬라이드에 붙여 넣기위한 코드는 .Select 메서드를 사용합니다.이 메서드는 내

    1

    1답변

    Excel에서 차트를 PowerPoint로 붙여 넣을 수있는 VBA 매크로가 있는데이 방법이 효과적입니다. PowerPoint로 동일한 워크 시트의 특정 셀의 셀 내용을 복사하도록 매크로를 조정했습니다. 매크로를 복사하기 전에 PowerPoint 서식 파일 에서처럼 글꼴 크기를 Excel에서 동일하게 설정하더라도 (40 포인트 모두) 글꼴은 매크로 실행 전

    1

    2답변

    사용자가 결과를 편집 할 수있게하면서 엑셀 범위를 엑셀 포인트로 내보내거나 붙여 넣는 방법이 있는지 궁금합니다. 인터넷에서 계속 볼 수있는 코드는 파워 포인트에 대한 탁월한 데이터를 그림으로 붙여 넣습니다. 아래 예가 있습니다 : Sub export_to_ppt(ByVal sheetname As String, ByVal initialSelection As

    0

    1답변

    슬라이드에 일부 모양을 추가하고 제공된 코드와 함께 그룹화합니다. ' Inserting shapes like this Set sld = Application.ActiveWindow.View.Slide Set sDesc = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, startX, picStartY, box

    1

    2답변

    나는 현재 내 파워 포인트 프레젠테이션의 모든 링크를 업데이트하려면이 코드를 사용하고 선정 (또는 범위)에 : Sub UpdateLinks() Dim ExcelFile Dim exl As Object Set exl = CreateObject("Excel.Application") ExcelFile = "C:\Users\J\Documents\Repor

    1

    1답변

    나는 학생들이 매칭 활동, 객관식 퀴즈 등을 완성 할 수있는 대화 형 파워 포인트 프리젠 테이션을 만들고있다. 프리젠 테이션은 각 학생의 진도를 기록하고 평균을 업데이트하며 각 질문 유형으로 그들이 얼마나 잘하고 있는지 추적 할 것이다. /활동. 필자는 작고 단순한 파일을 만들어서 5 개의 공용 변수보다 적게 사용했습니다. 지금까지이 프리젠 테이션에서 저는

    0

    1답변

    여러 Excel 차트가 링크로 붙여진 PowerPoint 프레젠테이션이 있습니다. VBA를 사용하여 확인했는데이 모양의 유형은 msoLinkedOLEObject입니다. 이를 아는 , 내가 먼저 다음과 같이 VBA를 통해 원래 차트가 포함 된 Excel 파일을 열고 차트의 "업데이트 링크"명령을 사용하고 싶습니다 : 내가 원하는 열린 Excel 파일과 함께

    0

    1답변

    내가 PowerPoint로 Excel 차트를 내보내기 위해이 코드를 사용하고 있습니다에 붙여 넣기에 문제 내가 루프에서 여러 가지 차트 하위를 호출하는거야으로 Sub ChartsToPresentation() Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PP

    0

    1답변

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

    3

    1답변

    누구나 VBA를 통해 SmartArt 요소의 그룹을 해제하는 방법을 알고 있습니까? Sub UngroupSmartArt() Dim shapeWithSmartArt As Shape Set shapeWithSmartArt = ActivePresentation.Slides(2).Shapes(2) shapeWithSmartArt.Ungroup End