powerpoint-vba

    0

    1답변

    저는 vba (어제부터 시작)에만 익숙하지만 코드를 사용하여 파워 포인트에 양식을 채우는 시간을 절약하고 싶습니다. 나는 지금까지 한 단어 만 입력되고 일치하는 경우 결과 텍스트 상자와 입력 상자를 생성하고 글꼴 색상을 변경하는 방법을 알아 냈습니다. 그러나 이것은 내 필요에 완전히 부합하지 않습니다. 제 목적을 위해 사용자 입력 규칙은 "Word1-Wor

    0

    1답변

    파워 포인트 슬라이드에 엑셀 데이터를 복사해야하지만 붙여 넣기 후에 모양이 잘리는 경우가 있습니다. Set myShape = mySlide.Shapes("obj" & i) mySlide.Shapes.PasteSpecial DataType:=2 Set newShape = mySlide.Shapes(mySlide.Shapes.Count)

    0

    1답변

    VBA 코드를 사용하여 선택한 개체를 파워 포인트에 복제하려고합니다. 다음 코드에 아래에 언급되어 있습니다. Sub CopySizeAndPosition() ' Usage: Select two shapes. The size and position of ' the first shape selected will be copied to the

    0

    2답변

    폴더에서 여러 그림을 삽 입합니다. 이 프로그램은 폴더의 맨 위에서 시작하여 내림차순으로 그림을 삽입해야하지만 그렇지 않습니다. 첫 번째 3-5 장의 그림은 프레젠테이션의 마지막 부분이며 다른 모든 부분은 완벽한 순서입니다. 다음 그들 방법 주문 : Sub createTransModel() Dim oSlide As Slide Dim oP

    1

    1답변

    사무실 2010에서 사무실 2016으로 전환했으며 아래에 VBA가 오류 1004 ('Workbooks'객체의 'Open'메소드 실패)를 표시합니다. 이 코드는 powerpoint 2010에서 의도 한대로 작동하지만 powerpoint 2016에서는 작동하지 않습니다. 누군가가 원인을 결정하는 데 도움이되기를 바랍니다. Sub testing() Excel.

    4

    1답변

    Powerpoint에서 저장 작업을 식별하는 콜백 함수를 추가하려고합니다. VBA를 사용하여 Application.PresentationSave Event (https://msdn.microsoft.com/en-us/library/office/ff744230.aspx?f=255&MSPPError=-2147217396)를 사용하여이 시나리오를 실행할 수 있습

    0

    1답변

    줄의 모든 단어를 선택하고 언어를 네덜란드어로 변경하는 매크로를 만드는 방법은 무엇입니까? VBA에 대한 경험이 많지 않으므로 어디서부터 시작해야할지 모를 것입니다. 키보드 정의를 미국으로 설정되어 있지 네덜란드어, 따라서 미국의 텍스트 컨트롤 은 네덜란드 겠습니까로 전환 할 필요가 각각의 경우, 네덜란드의 체크 언어를 설정하는 여러 가지 작업을하고 싶지

    0

    1답변

    VBA로 PowerPoint 프레젠테이션을했습니다. 이 프리젠 테이션을 .pptm 또는 .ppsm 파일로 저장하고 있으며 내 로컬 컴퓨터에서 훌륭하게 작동합니다. 그러나 OneDrive에서이 프리젠 테이션을 업로드 할 때 VBA가 작동하지 않습니다. 왜 그런지 이해하도록 도와주세요.

    0

    1답변

    그래서이 코드 줄은 단지 1 개의 ppt 파일에만 적용됩니다. ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.ParagraphFormat.Alignment=ppAlignCenter 어떻게하면 VBA와 같은 폴더에있는 모든 파워 포인트 파일에 대해이 작업을 수행 할 수 있습니까? 그래서 가장 큰 TextF

    0

    1답변

    아래 특정 단어를 찾아서 대체하는 코드가 있습니다. 그러나 VBA에 대한 지식은 제한되어 있으므로 폴더의 여러 Powerpoint 파일을 통해이 코드를 반복하여 저장하는 방법을 알지 못합니다. 또한 그것은 단지 첫 번째 시트에 쓰여진 단어를 가지고, 나는 그걸로 무엇이 있는지 몰라? Sub DemoFindReplace() Dim sld As Slide