Smart Fill Tool: Membuat Objek Baru dan Mewarnainya di CorelDraw

Ade Sanusi November 19, 2014
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

Posting Komentar

4 Komentar

  1. JR15 Maret 2015 pukul 06.57

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

    BalasHapus
  2. JR15 Maret 2015 pukul 10.58

    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. JR18 Maret 2015 pukul 00.24

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

    BalasHapus