Bagaimana cara membuat dan menyisipkan bentuk di PowerPoint dengan VBA?

Mengatur properti untuk suatu bentuk

Banyak properti pemformatan bentuk tidak diatur oleh properti yang berlaku langsung ke  objek Shape  atau  ShapeRange  . Sebaliknya, atribut bentuk terkait dikelompokkan dalam objek sekunder, seperti  objek FillFormat  , yang berisi semua properti yang berhubungan dengan isian bentuk, atau  objek LinkFormat  , yang berisi semua properti unik untuk objek OLE tertaut. Untuk mengatur properti bentuk, Anda harus terlebih dahulu mengembalikan objek yang mewakili kumpulan atribut bentuk terkait, lalu mengatur properti objek yang dikembalikan tersebut. Misalnya, Anda menggunakan  properti Isi  untuk mengembalikan  objek FillFormat  , lalu Anda menyetel  properti ForeColor  dari  objek FillFormat  untuk menyetel warna latar depan isian untuk bentuk yang ditentukan, seperti yang diperlihatkan dalam contoh berikut.

VB

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

Menerapkan properti atau metode ke beberapa bentuk secara bersamaan

Di antarmuka pengguna, ada beberapa operasi yang dapat Anda lakukan dengan beberapa bentuk yang dipilih; misalnya, Anda dapat memilih beberapa bentuk dan mengatur semua isiannya sekaligus. Ada operasi lain yang hanya dapat Anda lakukan dengan satu bentuk yang dipilih; misalnya, Anda hanya dapat mengedit teks dalam suatu bentuk jika satu bentuk dipilih.

Dalam Visual Basic, ada dua cara untuk menerapkan properti dan metode pada sekumpulan bentuk. Kedua cara ini memungkinkan Anda melakukan operasi apa pun yang dapat Anda lakukan pada satu bentuk pada rentang bentuk, baik Anda dapat melakukan operasi yang sama di antarmuka pengguna atau tidak.

• Jika operasi ini berfungsi pada beberapa bentuk yang dipilih di antarmuka pengguna, Anda bisa melakukan operasi yang sama di Visual Basic dengan membuat  koleksi ShapeRange  yang berisi bentuk yang ingin Anda kerjakan, dan menerapkan properti dan metode yang sesuai secara langsung ke koleksi  ShapeRange  .

• Jika operasi tidak bekerja pada beberapa bentuk yang dipilih di antarmuka pengguna, Anda masih dapat melakukan operasi dalam Visual Basic dengan mengulang melalui  koleksi Bentuk  atau melalui  koleksi ShapeRange  yang berisi bentuk yang ingin Anda kerjakan, dan menerapkan properti yang sesuai. dan metode ke masing-masing  objek Bentuk  dalam koleksi.

Banyak properti dan metode yang diterapkan pada  objek Shape  dan  koleksi ShapeRange  gagal jika diterapkan pada jenis bentuk tertentu. Misalnya,  properti TextFrame  gagal jika diterapkan pada bentuk yang tidak bisa berisi teks. Jika Anda tidak yakin bahwa setiap bentuk dalam  koleksi ShapeRange  dapat memiliki properti atau metode tertentu yang diterapkan padanya, jangan terapkan properti atau metode tersebut ke  koleksi ShapeRange  . Jika Anda ingin menerapkan salah satu properti atau metode ini ke kumpulan bentuk, Anda harus mengulang koleksi tersebut dan menguji masing-masing bentuk untuk memastikan jenis bentuknya sesuai sebelum menerapkan properti atau metode ke dalamnya.

Menerapkan properti atau metode ke koleksi ShapeRange

Jika Anda bisa melakukan operasi pada beberapa bentuk yang dipilih di antarmuka pengguna secara bersamaan, Anda bisa melakukan persamaan terprogram dengan membuat koleksi  ShapeRange  lalu menerapkan properti atau metode yang sesuai ke dalamnya. Contoh berikut membuat rentang bentuk yang berisi BentukOtomatis bernama "Bintang Besar" dan "Bintang Kecil" dan menerapkan isian gradien pada keduanya.myDocument

VB

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

Berikut ini adalah pedoman umum tentang bagaimana properti dan metode berperilaku ketika diterapkan pada  koleksi ShapeRange  .

• Menerapkan metode pada koleksi sama dengan menerapkan metode pada masing-masing  objek Shape  dalam koleksi tersebut.

• Menetapkan nilai properti koleksi setara dengan menetapkan nilai properti masing-masing bentuk dalam rentang tersebut.

• Properti koleksi yang mengembalikan konstanta akan mengembalikan nilai properti untuk masing-masing bentuk dalam koleksi jika semua bentuk dalam koleksi memiliki nilai yang sama untuk properti tersebut. Jika tidak semua bentuk dalam koleksi memiliki nilai properti yang sama, ia akan mengembalikan konstanta "campuran".

• Properti koleksi yang mengembalikan tipe data sederhana (seperti  Long ,  Single , atau  String ) mengembalikan nilai properti untuk bentuk individual jika semua bentuk dalam koleksi memiliki nilai yang sama untuk properti tersebut.

• Nilai beberapa properti dapat dikembalikan atau ditetapkan hanya jika terdapat tepat satu bentuk dalam koleksi. Jika ada lebih dari satu bentuk dalam koleksi, terjadi kesalahan run-time. Hal ini umumnya terjadi untuk mengembalikan atau menyetel properti ketika tindakan setara di antarmuka pengguna hanya dimungkinkan dengan satu bentuk (tindakan seperti mengedit teks dalam bentuk atau mengedit titik bentuk bebas).

Pedoman sebelumnya juga berlaku ketika Anda mengatur properti bentuk yang dikelompokkan dalam objek sekunder koleksi  ShapeRange  , seperti  objek FillFormat  . Jika objek sekunder mewakili operasi yang dapat dilakukan pada beberapa objek yang dipilih di antarmuka pengguna, Anda akan dapat mengembalikan objek dari koleksi  ShapeRange  dan mengatur propertinya. Misalnya, Anda bisa menggunakan  properti Fill  untuk mengembalikan  objek FillFormat  yang mewakili isian semua bentuk dalam  koleksi ShapeRange  . Menyetel properti  objek FillFormat ini  akan menyetel properti yang sama untuk semua bentuk individual dalam  koleksi ShapeRange  .

Mengulang koleksi Bentuk atau ShapeRange

Bahkan jika Anda tidak dapat melakukan operasi pada beberapa bentuk di antarmuka pengguna secara bersamaan dengan memilihnya lalu menggunakan perintah, Anda dapat melakukan tindakan serupa secara terprogram dengan mengulang melalui koleksi  Bentuk  atau melalui  koleksi ShapeRange  yang berisi bentuk yang Anda ingin dikerjakan, dan menerapkan properti dan metode yang sesuai pada masing-masing  objek Shape  dalam koleksi. Contoh berikut mengulang semua bentuk dan menambahkan teks ke setiap bentuk yang merupakan BentukOtomatis. dan menambahkan teks ke setiap bentuk yang merupakan BentukOtomatis.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

Contoh berikut membuat  koleksi ShapeRange  yang berisi semua bentuk yang dipilih saat ini di jendela aktif dan menyetel teks di setiap bentuk dalam koleksi yang bisa berisi teks.

VB

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

Menyelaraskan, mendistribusikan, dan mengelompokkan bentuk dalam rentang bentuk

Gunakan  metode Align  dan  Distribute  untuk memposisikan sekumpulan bentuk relatif satu sama lain atau relatif terhadap dokumen yang memuatnya. Gunakan  metode Group  atau  metode Regroup  untuk membentuk satu bentuk yang dikelompokkan dari sekumpulan bentuk.