Bagaimana untuk mencipta dan memasukkan bentuk dalam PowerPoint dengan VBA?

Menetapkan sifat untuk sesuatu bentuk

Banyak sifat pemformatan bentuk tidak ditetapkan oleh sifat yang digunakan terus pada  objek Shape  atau  ShapeRange  . Sebaliknya, atribut bentuk yang berkaitan dikumpulkan di bawah objek sekunder, seperti  objek FillFormat  , yang mengandungi semua sifat yang berkaitan dengan isian bentuk, atau  objek LinkFormat  , yang mengandungi semua sifat yang unik kepada objek OLE yang dipautkan. Untuk menetapkan sifat untuk bentuk, anda mesti mengembalikan objek yang mewakili set atribut bentuk yang berkaitan dan kemudian menetapkan sifat objek yang dikembalikan itu. Sebagai contoh, anda menggunakan  sifat Fill  untuk mengembalikan  objek FillFormat  , dan kemudian anda menetapkan  sifat ForeColor  bagi  objek FillFormat  untuk menetapkan warna latar depan isian untuk bentuk yang ditentukan, seperti yang ditunjukkan dalam contoh berikut.

VB

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

Menggunakan sifat atau kaedah kepada beberapa bentuk pada masa yang sama

Dalam antara muka pengguna, terdapat beberapa operasi yang boleh anda lakukan dengan beberapa bentuk yang dipilih; sebagai contoh, anda boleh memilih beberapa bentuk dan menetapkan semua isian individu mereka sekali gus. Terdapat operasi lain yang anda hanya boleh lakukan dengan satu bentuk yang dipilih; contohnya, anda hanya boleh mengedit teks dalam bentuk jika satu bentuk dipilih.

Dalam Visual Basic, terdapat dua cara untuk menggunakan sifat dan kaedah pada set bentuk. Kedua-dua cara ini membolehkan anda melakukan sebarang operasi yang boleh anda lakukan pada satu bentuk pada julat bentuk, sama ada anda boleh melakukan operasi yang sama dalam antara muka pengguna atau tidak.

• Jika operasi berfungsi pada berbilang bentuk yang dipilih dalam antara muka pengguna, anda boleh melakukan operasi yang sama dalam Visual Basic dengan membina  koleksi ShapeRange  yang mengandungi bentuk yang anda ingin kerjakan dan menggunakan sifat dan kaedah yang sesuai terus ke koleksi  ShapeRange  .

• Jika operasi tidak berfungsi pada berbilang bentuk yang dipilih dalam antara muka pengguna, anda masih boleh melaksanakan operasi dalam Visual Basic dengan menggelung melalui koleksi  Shapes  atau melalui  koleksi ShapeRange  yang mengandungi bentuk yang anda ingin kerjakan dan menggunakan sifat yang sesuai dan kaedah kepada objek Bentuk individu   dalam koleksi.

Banyak sifat dan kaedah yang digunakan pada  objek Shape  dan  koleksi ShapeRange  gagal jika digunakan pada jenis bentuk tertentu. Sebagai contoh,  sifat TextFrame  gagal jika digunakan pada bentuk yang tidak boleh mengandungi teks. Jika anda tidak yakin bahawa setiap bentuk dalam  koleksi ShapeRange  boleh mempunyai sifat atau kaedah tertentu yang digunakan padanya, jangan gunakan sifat atau kaedah itu pada  koleksi ShapeRange  . Jika anda ingin menggunakan salah satu sifat atau kaedah ini pada koleksi bentuk, anda mesti mengulang koleksi dan menguji setiap bentuk individu untuk memastikan ia adalah jenis bentuk yang sesuai sebelum menggunakan sifat atau kaedah padanya.

Menggunakan sifat atau kaedah pada koleksi ShapeRange

Jika anda boleh melakukan operasi pada berbilang bentuk yang dipilih dalam antara muka pengguna pada masa yang sama, anda boleh melakukan program yang setara dengan membina koleksi  ShapeRange  dan kemudian menggunakan sifat atau kaedah yang sesuai untuknya. Contoh berikut membina julat bentuk yang mengandungi AutoShapes bernama "Big Star" dan "Little Star" dan menggunakan isian kecerunan padanya dan menggunakan isian kecerunan padanya.myDocument

VB

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

Berikut ialah garis panduan umum tentang cara sifat dan kaedah bertindak apabila ia digunakan pada  koleksi ShapeRange  .

• Menggunakan kaedah pada koleksi adalah sama dengan menggunakan kaedah untuk setiap  objek Shape individu  dalam koleksi itu.

• Menetapkan nilai sifat koleksi adalah sama dengan menetapkan nilai sifat setiap bentuk individu dalam julat itu.

• Sifat koleksi yang mengembalikan pemalar mengembalikan nilai sifat untuk bentuk individu dalam koleksi jika semua bentuk dalam koleksi mempunyai nilai yang sama untuk sifat itu. Jika tidak semua bentuk dalam koleksi mempunyai nilai yang sama untuk harta itu, ia mengembalikan pemalar "campuran".

• Sifat koleksi yang mengembalikan jenis data ringkas (seperti  Long ,  Single atau  String ) mengembalikan nilai sifat untuk bentuk individu jika semua bentuk dalam koleksi mempunyai nilai yang sama untuk sifat tersebut.

• Nilai sesetengah sifat boleh dikembalikan atau ditetapkan hanya jika terdapat betul-betul satu bentuk dalam koleksi. Jika terdapat lebih daripada satu bentuk dalam koleksi, ralat masa jalan berlaku. Ini biasanya berlaku untuk mengembalikan atau menetapkan sifat apabila tindakan yang setara dalam antara muka pengguna boleh dilakukan hanya dengan satu bentuk (tindakan seperti mengedit teks dalam bentuk atau mengedit titik bentuk bebas).

Garis panduan sebelumnya juga digunakan apabila anda menetapkan sifat bentuk yang dikumpulkan di bawah objek sekunder koleksi  ShapeRange  , seperti  objek FillFormat  . Jika objek kedua mewakili operasi yang boleh dilakukan pada berbilang objek terpilih dalam antara muka pengguna, anda akan dapat mengembalikan objek daripada koleksi  ShapeRange  dan menetapkan sifatnya. Sebagai contoh, anda boleh menggunakan  sifat Fill  untuk mengembalikan  objek FillFormat  yang mewakili isian semua bentuk dalam  koleksi ShapeRange  . Menetapkan sifat  objek FillFormat ini  akan menetapkan sifat yang sama untuk semua bentuk individu dalam  koleksi ShapeRange  .

Menggelung melalui koleksi Shapes atau ShapeRange

Walaupun anda tidak boleh melakukan operasi pada beberapa bentuk dalam antara muka pengguna pada masa yang sama dengan memilihnya dan kemudian menggunakan arahan, anda boleh melakukan tindakan yang setara secara pengaturcaraan dengan menggelung melalui koleksi  Shapes  atau melalui  koleksi ShapeRange  yang mengandungi bentuk yang anda ingin bekerja dengannya, dan menggunakan sifat dan kaedah yang sesuai pada  objek Shape individu  dalam koleksi. Contoh berikut menggelungkan semua bentuk dan menambah teks pada setiap bentuk yang AutoShape. dan menambah teks pada setiap bentuk yang AutoShape.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 membina  koleksi ShapeRange  yang mengandungi semua bentuk yang dipilih pada masa ini dalam tetingkap aktif dan menetapkan teks dalam setiap bentuk dalam koleksi yang boleh mengandungi teks.

VB

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

Menjajarkan, mengedar dan mengumpulkan bentuk dalam julat bentuk

Gunakan  kaedah Jajar  dan  Edarkan  untuk meletakkan set bentuk relatif kepada satu sama lain atau relatif kepada dokumen yang mengandunginya. Gunakan  kaedah Kumpulan  atau  kaedah Kumpulan semula  untuk membentuk satu bentuk berkumpulan daripada satu set bentuk.