Làm cách nào để tạo và chèn hình dạng trong PowerPoint với VBA?

Đặt thuộc tính cho hình dạng

Nhiều thuộc tính định dạng của hình dạng không được thiết lập bởi các thuộc tính áp dụng trực tiếp cho  đối tượng Shape  hoặc  ShapeRange  . Thay vào đó, các thuộc tính hình dạng có liên quan được nhóm lại dưới các đối tượng phụ, chẳng hạn như  đối tượng FillFormat  , chứa tất cả các thuộc tính liên quan đến phần tô của hình dạng hoặc  đối tượng LinkFormat  , chứa tất cả các thuộc tính duy nhất cho các đối tượng OLE được liên kết. Để đặt thuộc tính cho hình dạng, trước tiên bạn phải trả về đối tượng đại diện cho tập hợp các thuộc tính hình dạng có liên quan, sau đó đặt thuộc tính của đối tượng được trả về đó. Ví dụ: bạn sử dụng  thuộc tính Fill  để trả về  đối tượng FillFormat  , sau đó bạn đặt thuộc  tính ForeColor  của  đối tượng FillFormat  để đặt màu nền trước cho hình dạng đã chỉ định, như trong ví dụ sau.

VB

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

Áp dụng một thuộc tính hoặc phương thức cho nhiều hình dạng cùng một lúc

Trong giao diện người dùng, có một số thao tác bạn có thể thực hiện với một số hình dạng được chọn; ví dụ: bạn có thể chọn một số hình dạng và đặt tất cả các màu tô riêng lẻ của chúng cùng một lúc. Có những thao tác khác bạn chỉ có thể thực hiện với một hình dạng duy nhất được chọn; ví dụ: bạn chỉ có thể chỉnh sửa văn bản trong một hình nếu một hình duy nhất được chọn.

Trong Visual Basic, có hai cách để áp dụng các thuộc tính và phương thức cho một tập hợp các hình dạng. Hai cách này cho phép bạn thực hiện bất kỳ thao tác nào mà bạn có thể thực hiện trên một hình duy nhất trên nhiều hình dạng, cho dù bạn có thể thực hiện thao tác tương tự trong giao diện người dùng hay không.

• Nếu thao tác hoạt động trên nhiều hình dạng đã chọn trong giao diện người dùng, bạn có thể thực hiện thao tác tương tự trong Visual Basic bằng cách xây dựng  bộ sưu tập ShapeRange  có chứa các hình dạng bạn muốn làm việc và áp dụng trực tiếp các thuộc tính và phương thức thích hợp vào bộ  sưu tập ShapeRange  .

• Nếu thao tác không hoạt động trên nhiều hình dạng đã chọn trong giao diện người dùng, bạn vẫn có thể thực hiện thao tác trong Visual Basic bằng cách lặp qua bộ  sưu tập Hình dạng  hoặc qua  bộ sưu tập ShapeRange  có chứa các hình dạng bạn muốn làm việc và áp dụng các thuộc tính thích hợp và các phương thức cho  các đối tượng Hình dạng riêng lẻ  trong bộ sưu tập.

Nhiều thuộc tính và phương thức áp dụng cho  đối tượng Shape  và  bộ sưu tập ShapeRange  sẽ không thành công nếu được áp dụng cho một số loại hình dạng nhất định. Ví dụ:  thuộc tính TextFrame  không thành công nếu được áp dụng cho hình dạng không thể chứa văn bản. Nếu bạn không chắc chắn rằng mỗi hình dạng trong  bộ sưu tập ShapeRange  có thể được áp dụng một thuộc tính hoặc phương thức nhất định cho nó, thì đừng áp dụng thuộc tính hoặc phương thức đó cho bộ  sưu tập ShapeRange  . Nếu bạn muốn áp dụng một trong các thuộc tính hoặc phương thức này cho một tập hợp các hình dạng, bạn phải lặp qua bộ sưu tập và kiểm tra từng hình dạng riêng lẻ để đảm bảo đó là loại hình dạng thích hợp trước khi áp dụng thuộc tính hoặc phương thức cho nó.

Áp dụng thuộc tính hoặc phương thức cho bộ sưu tập ShapeRange

Nếu bạn có thể thực hiện một thao tác trên nhiều hình dạng đã chọn trong giao diện người dùng cùng một lúc, bạn có thể thực hiện tương đương theo chương trình bằng cách xây dựng  bộ sưu tập ShapeRange  rồi áp dụng các thuộc tính hoặc phương thức thích hợp cho nó. Ví dụ sau đây xây dựng một phạm vi hình dạng chứa các Hình tự động có tên "Ngôi sao lớn" và "Ngôi sao nhỏ" và áp dụng màu tô chuyển màu cho chúng cũng như áp dụng màu tô chuyển màu cho chúng.myDocument

VB

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

Sau đây là các hướng dẫn chung về cách hoạt động của các thuộc tính và phương thức khi chúng được áp dụng cho  bộ sưu tập ShapeRange  .

• Áp dụng một phương thức cho bộ sưu tập tương đương với việc áp dụng phương thức đó cho từng  đối tượng Hình dạng riêng lẻ  trong bộ sưu tập đó.

• Việc đặt giá trị của một thuộc tính của bộ sưu tập tương đương với việc đặt giá trị thuộc tính của từng hình dạng riêng lẻ trong phạm vi đó.

• Thuộc tính của bộ sưu tập trả về một hằng số trả về giá trị của thuộc tính cho một hình dạng riêng lẻ trong bộ sưu tập nếu tất cả các hình dạng trong bộ sưu tập có cùng giá trị cho thuộc tính đó. Nếu không phải tất cả các hình dạng trong bộ sưu tập đều có cùng giá trị cho thuộc tính thì nó sẽ trả về hằng số "hỗn hợp".

• Thuộc tính của bộ sưu tập trả về kiểu dữ liệu đơn giản (chẳng hạn như  Long ,  Single hoặc  String ) trả về giá trị của thuộc tính cho một hình dạng riêng lẻ nếu tất cả các hình dạng trong bộ sưu tập có cùng giá trị cho thuộc tính đó.

• Giá trị của một số thuộc tính chỉ có thể được trả về hoặc đặt nếu có chính xác một hình trong bộ sưu tập. Nếu có nhiều hơn một hình trong bộ sưu tập thì sẽ xảy ra lỗi thời gian chạy. Đây thường là trường hợp trả về hoặc đặt thuộc tính khi hành động tương đương trong giao diện người dùng chỉ có thể thực hiện được với một hình dạng duy nhất (các hành động như chỉnh sửa văn bản trong hình dạng hoặc chỉnh sửa các điểm của dạng tự do).

Các nguyên tắc trước đây cũng áp dụng khi bạn đặt thuộc tính của các hình dạng được nhóm dưới các đối tượng phụ của  bộ sưu tập ShapeRange  , chẳng hạn như  đối tượng FillFormat  . Nếu đối tượng phụ biểu thị các thao tác có thể được thực hiện trên nhiều đối tượng đã chọn trong giao diện người dùng, bạn sẽ có thể trả về đối tượng từ bộ  sưu tập ShapeRange  và đặt các thuộc tính của nó. Ví dụ: bạn có thể sử dụng  thuộc tính Fill  để trả về  đối tượng FillFormat  đại diện cho phần tô của tất cả các hình dạng trong  bộ sưu tập ShapeRange  . Việc đặt các thuộc tính của  đối tượng FillFormat này  sẽ đặt các thuộc tính giống nhau cho tất cả các hình dạng riêng lẻ trong  bộ sưu tập ShapeRange  .

Lặp qua bộ sưu tập Hình dạng hoặc ShapeRange

Ngay cả khi bạn không thể thực hiện thao tác trên nhiều hình dạng trong giao diện người dùng cùng lúc bằng cách chọn chúng rồi sử dụng lệnh, bạn vẫn có thể thực hiện hành động tương đương theo chương trình bằng cách lặp qua bộ sưu tập Hình  dạng  hoặc thông qua  bộ sưu tập ShapeRange  có chứa các hình dạng bạn muốn. muốn làm việc và áp dụng các thuộc tính và phương thức thích hợp cho  các đối tượng Hình dạng riêng lẻ  trong bộ sưu tập. Ví dụ sau lặp qua tất cả các hình dạng trên và thêm văn bản vào từng hình dạng là Hình tự động. và thêm văn bản vào từng hình là Hình tự động.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

Ví dụ sau xây dựng  bộ sưu tập ShapeRange  chứa tất cả các hình dạng hiện được chọn trong cửa sổ đang hoạt động và đặt văn bản trong mỗi hình dạng trong bộ sưu tập có thể chứa văn bản.

VB

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

Căn chỉnh, phân phối và nhóm các hình dạng trong một phạm vi hình dạng

Sử dụng  các phương pháp Căn chỉnh  và  Phân phối  để định vị một tập hợp các hình dạng có liên quan với nhau hoặc liên quan đến tài liệu chứa chúng. Sử dụng  phương pháp Nhóm  hoặc  phương pháp Nhóm lại  để tạo thành một hình dạng được nhóm từ một tập hợp các hình dạng.