AD (728x60)

shorten links and earn money

Contact Me

My Services

Rabu, 19 November 2014

Smart Fill Tool: Membuat Objek Baru dan Mewarnainya di CorelDraw

Share & Comment
Selain menggunakan cara Mewarnai Fill dan Outline ada juga fitur canggih dari CorelDraw yaitu Smart Fill Tool. Smart Fill Tool adalah fungsi toolbox CorelDraw yang memungkinakan anda Membuat Objek baru diantara objek-objek lain yang saling berhubungan atau berpotongan sekaligus mewarnainya. Untuk Lebih jelasnya silahkan lihat contoh gambar di bawah ini:
Contoh Smart Fill Tool pada CorelDraw X7

Adapun cara penggunaanya adalah sebagai berikut:

  1. Buatlah objek persegi, segi delapan dan bintang sebagai contoh, kemudain 
  2. Klik Icon Smart Fill Tool pada toolbox kemudian atur warna di Propertybar pada bagian Fill dan Outline
  3. Kemudian klik pada Objek yang ditandai titik-titik merahLangkah-Langkah Cepat Menggunakan Smart Fill mewarnai di CorelDraw

  4. Pada objek di atas belum diberikan warna pada dasarnya sedangkan jika objek-objek tersebut sudah di warnai maka hasilnya akan berbeda. berikut contohnya:Contoh Hasil Smart Fill di CorelDraw X7

Mau lebih jelas? Simak video Berikut:


Demikian tutorial Membuat Objek dan Sekaligus Mewarnai Objek dengan Smart Fill,  dan untuk memberikan warna gradasi baru bisa anda lakukan setelah semua objek baru terbentuk dan atur warna gradasi seperti tutorial  Efek Warna Gradasi pada Fill di CorelDraw 

CorelDraw Is Smart kan? :)  Salam #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.

4 komentar:

  1. JRMSwapingFill&Outlines MACRO
    Download: http://ge.tt/9qjEDGC2?c enjoy

    BalasHapus
  2. Sub SwapingFillsOutlines2()
    dim sh As Shape, sr As ShapeRange, col1 As New Color, col2 As New Color, col3 As New Color, col4 As New Color, col5 As New Color
    If ActiveSelection.Shapes.Count = 0 Then Beep: Exit Sub
    If ActiveSelection.Shapes.Count < 2 Then MsgBox "Select 2 shapes or more", vbInformation

    Set sr = ActiveSelection.Shapes.FindShapes(Query:="@fill.type = 'uniform'")
    On Error Resume Next
    Optimization = True
    ActiveDocument.BeginCommandGroup "Swaping Fills & Outlines 2"

    col1.CopyAssign sr(1).Fill.UniformColor
    col2.CopyAssign sr(2).Fill.UniformColor

    If GetAsyncKeyState(VK_SHIFT) Then
    For Each sh In sr
    If sh.Fill.UniformColor.IsSame(col1) Then
    sh.Fill.ApplyUniformFill col2
    If sh.Outline.Type = cdrOutline Then
    sh.Outline.Color.CopyAssign col2
    End If
    Else
    sh.Fill.ApplyUniformFill col1
    If sh.Outline.Type = cdrOutline Then
    sh.Outline.Color.CopyAssign col1
    End If
    End If
    Next sh

    Else

    For Each sh In sr
    If sh.Fill.UniformColor.IsSame(col1) Then
    sh.Fill.ApplyUniformFill col2
    Else
    sh.Fill.ApplyUniformFill col1
    End If
    Next sh

    End If

    ActiveDocument.EndCommandGroup
    Optimization = False
    ActiveWindow.Refresh
    End Sub

    BalasHapus
  3. PD.BEFORE Sub SwapingFillsOutlines2() PASTE THIS LINE IN TOP
    Private Const VK_SHIFT = &H10

    BalasHapus

 

Popular Posts

Recent Post

Follow by Email

Kenapa Pilih Macro?

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