Macro Shorcut PowerClip di Corel Draw

Tutorial mengenai memasukan objek ke dalam powerClip sudah saya bahas dan di sini saya ingin memberikan sedikit tips membuat Shorcut PowerClip dengan Macro, kemudain macro tersebut dipanggil melalui shorcut.

Dengan shorcut ini maka objek pertama akan otomatis masuk ke objek ke dua sekali tekan, misalkan Ctrl+Alt+C

1. Buatlah dokumen baru di CorelDraw kemudian tekan
2. Alt + F11 di keyboard untuk menampilkan Macro Editor atau klik menu Tools-Macros-Macro Editor
3. Cari GlobalMacros (GlobalMacros.gms) di Project Explorer sebelah kiri, kemudian 
4. Klik pada bagian folder modul dan pilih salah satu modul, misalkan modul CorelMacros 
5. Klik 2x pada modul tersebut sehingga tampil jendela kode, silhkan masukan kode di bawah 
   
   
6. Kemudian Ctrl+S untuk menyimpan kode macro tersebut dan tutup jendela Macro Editor

Sub PowerClipOtomatis()

    ' Kode oleh Ade Sanusi | www.GRAFISin.com

    ' 15/11/2014 | 21 :56

    

    ' Deklarasikan Variabel untuk Membaca Objek yang Diseleksi

    Dim seleksi As ShapeRange

    Set seleksi = ActiveSelectionRange

    ' Memecah dua Objek yang Diseleksi berdasarkan Index

    ' Panggil Objek Pertama

    Dim Objek_Pertama As Shape

    Set Objek_Pertama = seleksi.Shapes(1)

    ' Panggil Objek Kedua

    Dim Objek_Kedua As Shape

    Set Objek_Kedua = seleksi.Shapes(2)

    ' Objek Ke Dua dijadikan Tempat PowerClip Objek Pertama

    Objek_Kedua.AddToPowerClip Objek_Pertama

End Sub

Langkah selanjutnya adalah membuat Shorcut dengan memanggil Macro Tersebut, Seperti pada Tutorial Membuat Perintah dan Shorcut Baru di CorelDraw

1. Klik Menu Tool - Customization
2. Klik pada Bagian Commands kemudian pilih dibagian Macros dan cari CorelMacros.PowerClipOtomatis  kemudian klik pada jendela Shorcut Keys
3. Tekan Kombinasi yang diinginkan Ctrl+Alt+C pada isian New Shorcut Key
4. Kemudian klik tombol Assign
5. Klik Ok untuk mengakhirinya

Cara penggunaannya adalah:

1. Klik pada objek pertama, (Jika objek pertama lebih dari 1 silahkan di group terlebih dahulu)
2. Klik lagi pada objek kedua
3. Tekan Shorcut Ctrl+Alt+C 
4. Maka objek pertama akan masuk ke objek ke dua,

Selamat berkreasi dengan CorelDraw, Salam #GRAFISin