VBA를 사용하여 PowerPoint에서 모양을 만들고 삽입하는 방법은 무엇입니까?

도형 속성 설정

도형의 많은 서식 지정 속성은 Shape  또는  ShapeRange 개체 에 직접 적용되는 속성에 의해 설정되지 않습니다   . 대신 관련 모양 특성은   모양의 채우기와 관련된 모든 속성을 포함하는  FillFormat 개체 또는  연결된 OLE 개체에 고유한 모든 속성을 포함하는 LinkFormat 개체와 같은 보조 개체 아래에 그룹화됩니다. 모양의 속성을 설정하려면 먼저 관련 모양 특성 집합을 나타내는 개체를 반환한 다음 반환된 해당 개체의 속성을 설정해야 합니다.  예를 들어 다음 예제와 같이 Fill 속성을 사용하여  FillFormat 개체를  반환한   다음  FillFormat 개체  의  ForeColor 속성을 설정하여 지정된 모양에 대한 채우기 전경색을 설정합니다.

VB

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

동시에 여러 셰이프에 속성 또는 메서드 적용

사용자 인터페이스에는 여러 모양을 선택하여 수행할 수 있는 몇 가지 작업이 있습니다. 예를 들어 여러 모양을 선택하고 모든 개별 채우기를 한 번에 설정할 수 있습니다. 단일 모양을 선택한 경우에만 수행할 수 있는 다른 작업도 있습니다. 예를 들어 단일 도형을 선택한 경우에만 도형의 텍스트를 편집할 수 있습니다.

Visual Basic에는 도형 집합에 속성과 메서드를 적용하는 두 가지 방법이 있습니다. 이 두 가지 방법을 사용하면 사용자 인터페이스에서 동일한 작업을 수행할 수 있는지 여부에 관계없이 다양한 모양의 단일 모양에 대해 수행할 수 있는 작업을 수행할 수 있습니다.

• 작업이 사용자 인터페이스에서 선택한 여러 셰이프에 대해 작동하는 경우   작업할 셰이프가 포함된  ShapeRange 컬렉션을 구성하고 적절한 속성과 메서드를 ShapeRange  컬렉션에 직접 적용하여 Visual Basic에서 동일한 작업을 수행할 수 있습니다.

• 사용자 인터페이스에서 선택한 여러 모양에 대해 작업이 작동하지 않는 경우에도 Shapes  컬렉션  또는   작업하려는 모양이 포함된 ShapeRange 컬렉션을 통해 반복하고 적절한 속성을 적용하여 Visual Basic에서 작업을 수행할 수 있습니다.  컬렉션의 개별  Shape 개체에 대한 메서드입니다.

Shape  개체 및  ShapeRange 컬렉션 에 적용되는 많은 속성과 메서드는   특정 종류의 도형에 적용되면 실패합니다. 예를 들어   텍스트를 포함할 수 없는 도형에 TextFrame 속성을 적용하면 실패합니다. ShapeRange 컬렉션 의 각 셰이프에 특정 속성이나 메서드가 적용될 수 있다는 확신이 없다면  ShapeRange 컬렉션  에 해당 속성이나 메서드를 적용하지 마세요   . 이러한 속성이나 메서드 중 하나를 모양 컬렉션에 적용하려면 컬렉션을 반복하고 각 개별 모양을 테스트하여 속성이나 메서드를 적용하기 전에 적절한 모양 유형인지 확인해야 합니다.

ShapeRange 컬렉션에 속성 또는 메서드 적용

사용자 인터페이스에서 선택한 여러 모양에 대해 동시에 작업을 수행할 수 있는 경우  ShapeRange  컬렉션을 구성한 다음 여기에 적절한 속성이나 메서드를 적용하여 프로그래밍 방식으로 동일한 작업을 수행할 수 있습니다. 다음 예제에서는 "Big Star" 및 "Little Star"라는 도형을 포함하는 모양 범위를 구성하고 여기에 그라데이션 채우기를 적용하고 그라데이션 채우기를 적용합니다.myDocument

VB

Set myDocument = ActivePresentation.Slides(1) 
Set myRange = myDocument.Shapes _ 
    .Range(Array("Big Star", "Little Star")) 
myRange.Fill.PresetGradient msoGradientHorizontal, _ 
    1, msoGradientBrass

다음은 ShapeRange 컬렉션 에 적용될 때 속성과 메서드가 어떻게 작동하는지에 대한 일반적인 지침입니다   .

• 컬렉션에 메서드를 적용하는 것은   해당 컬렉션의 각 개별 Shape 개체에 메서드를 적용하는 것과 같습니다.

• 컬렉션의 속성 값을 설정하는 것은 해당 범위에 있는 각 개별 모양의 속성 값을 설정하는 것과 같습니다.

• 상수를 반환하는 컬렉션의 속성은 컬렉션의 모든 모양이 해당 속성에 대해 동일한 값을 갖는 경우 컬렉션의 개별 모양에 대한 속성 값을 반환합니다. 컬렉션의 모든 모양이 속성에 대해 동일한 값을 갖지 않는 경우 "혼합" 상수를 반환합니다.

• 간단한 데이터 유형(예:  Long ,  Single 또는  String )을 반환하는 컬렉션의 속성은 컬렉션의 모든 셰이프가 해당 속성에 대해 동일한 값을 갖는 경우 개별 셰이프에 대한 속성 값을 반환합니다.

• 일부 속성의 값은 컬렉션에 정확히 하나의 모양이 있는 경우에만 반환되거나 설정될 수 있습니다. 컬렉션에 셰이프가 두 개 이상 있으면 런타임 오류가 발생합니다. 이는 일반적으로 사용자 인터페이스에서 동일한 작업이 단일 모양(예: 모양의 텍스트 편집 또는 자유 형식의 점 편집)에서만 가능한 경우 속성을 반환하거나 설정하는 경우입니다.

앞의 지침은 FillFormat 개체  와 같은  ShapeRange 컬렉션 의 보조 개체 아래에 그룹화된 도형의 속성을 설정할 때도 적용됩니다   . 보조 개체가 사용자 인터페이스에서 선택한 여러 개체에 대해 수행할 수 있는 작업을 나타내는 경우 ShapeRange 컬렉션에서 개체를 반환하고 해당 속성을 설정할 수 있습니다   . 예를 들어  Fill 속성을 사용하여 ShapeRange 컬렉션  에 있는 모든 모양의 채우기를 나타내는  FillFormat 개체를  반환  할 수 있습니다  . 이 FillFormat 개체 의 속성을 설정하면  ShapeRange 컬렉션  의 모든 개별 모양에 대해 동일한 속성이 설정됩니다   .

Shapes 또는 ShapeRange 컬렉션을 통해 반복

사용자 인터페이스에서 여러 셰이프를 선택한 다음 명령을 사용하여 동시에 여러 셰이프에 대한 작업을 수행할 수 없는 경우에도 Shapes 컬렉션  또는  셰이프   가 포함된 ShapeRange 컬렉션을 반복하여 프로그래밍 방식으로 동일한 작업을 수행할 수 있습니다. 작업하고   컬렉션의 개별 Shape 개체에 적절한 속성과 메서드를 적용하려고 합니다. 다음 예제에서는 모든 도형을 반복하고 도형인 각 도형에 텍스트를 추가합니다. 도형인 각 도형에 텍스트를 추가합니다.myDocument

VB

Set myDocument = ActivePresentation.Slides(1) 
For Each sh In myDocument.Shapes 
    If sh.Type = msoAutoShape Then 
        sh.TextFrame.TextRange.InsertAfter " (version 1)" 
    End If 
Next

다음 예제에서는  활성 창에서 현재 선택된 모든 도형을 포함하는 ShapeRange  컬렉션을 생성하고 텍스트를 포함할 수 있는 컬렉션의 각 도형에 텍스트를 설정합니다.

VB

For Each sh in ActiveWindow.Selection.ShapeRange
    If sh.HasTextFrame Then
        sh.TextFrame.TextRange = "Initially selected"
    End If
Next

모양 범위에서 모양 정렬, 배포 및 그룹화

Align  및  Distribute 메서드를 사용하여   도형 세트를 서로 기준으로 또는 해당 도형이 포함된 문서를 기준으로 배치합니다. 그룹  방법 또는  재그룹 방법을 사용하여   모양 집합에서 단일 그룹화된 모양을 만듭니다.