Mewarnai Objek Secara Acak di CorelDraw dengan Macro

Berkut ini Tips Trik Membuat / Mewarnai Objek Shape Secara Acak di CorelDraw menggunakan Macro. Buat yang masih bingung apa itu macro, dan cara penggunaannya silahkan baca-baca link di bawah ini :



Kodenya sebagai berikut:

Sub WarnaAcak()
'Kode Oleh Ade Sanusi
'Created : 22 Desember 2014 :17:45
 Dim s As Shape
  
'For Each s In ActivePage.Shapes 'Jika Ingin Warna Acak pada Semua Objek di Page Aktif
For Each s In ActiveSelectionRange.Shapes 'Untuk Warna Acak pada Objek yang Terseleksi

    warna_c = Int((100 - 0 + 1) * Rnd + 0)
    warna_m = Int((100 - 0 + 1) * Rnd + 0)
    warna_y = Int((100 - 0 + 1) * Rnd + 0)
    warna_k = Int((100 - 0 + 1) * Rnd + 0)
    
    s.Fill.UniformColor.CMYKAssign warna_c, warna_m, warna_y, 0 'Ganti 0 dengan warna_k jika ingin kombinasi warna gelap
    
    's.Fill.UniformColor.RGBAssign warna_r, warna_g, warna_b
    
    '====>> Untuk Warna RGB Gunakan Kode di Bawah hapus tanda petik di sampingnya,
    '====>> Tambahkan dulu tanda petik ' di kode warna CMYK di atas
    
    'warna_r = Int((255 - 0 + 1) * Rnd + 0)
    'warna_g = Int((255 - 0 + 1) * Rnd + 0)
    'warna_b = Int((255 - 0 + 1) * Rnd + 0)
    
    's.Fill.UniformColor.RGBAssign warna_r, warna_g, warna_b
     
  Next s
End Sub

Kode di atas akan menghasilkan warna CMYK Acak pada objek terseleksi, jika ingin mengganti warna objek pada Page Aktif  hilangkan tanda petik pada baris pertama kode yang di tandai warna ungu dantambahkan tanda petik pada baris ke dua kode tersebut.

Jika ingin menggunakan Warna RGB silahkan tambahkan tanda petik pada kode warna merah di setiap awal kode, dan hilangkan tanda petik di kode warna biru.

Jalankan Macronya dan lihat hasilnya :) Ciamik kan?