AD (728x60)

shorten links and earn money

Contact Me

My Services

Minggu, 21 Desember 2014

Mewarnai Objek Secara Acak di CorelDraw dengan Macro

Share & Comment
Mewarnai Objek Secara Acak atau Random Color Objek di CorelDraw
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 dan tambahkan 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?

Salam Kreatif #GRAFISin
Tags: , , , , , ,

Written by

Programmer yang suka ngulik coding, dan tertarik juga dengan hal-hal kratifitas, desain grafis. Semoga Blog Ini bermanfaat untuk Anda!, Terima Kasih.

0 komentar:

Posting Komentar

 

Popular Posts

Recent Post

Follow by Email

Kenapa Pilih Macro?

Copyright © GRAFISin | Tutorial Desain Grafis dan Download Gratisan | Designed by Templateism.com