Quantcast
Channel: GRAFISin | Tutorial Desain Grafis dan Download Gratisan
Viewing all 136 articles
Browse latest View live

Convert To Curve All Text In All Page CorelDraw Include PowerClip

$
0
0
Convert All Text Include Text In PowerClip Object
Dulu pernah saya share Artikel Macro Cara Convert semua Object Text di CorelDraw, tapi Macro tersebut belum tanpa conversi objet text yang ada pada PowerClip. Nah macro kali ini saya berikan script agar bisa convert semua object text, paragraph text maupun artistic text di semua halaman CorelDraw dengan Cepat.

Kode Macro :

Sub ConvertAllTextToCurveExcludePowerClip()
    Dim p As Page, s As Shape, sr As ShapeRange
    Dim i&
   
    For i = 1 To ActiveDocument.Pages.Count
        For Each s In ActivePage.Shapes
            If s.Type = cdrTextShape Then
                s.ConvertToCurves
            End If
        Next s
    Next i
End Sub



Sub ConvertAllTextToCurveIncludePowerClip()


Dim s As Shape, s2 As Shape, sr As ShapeRange, p As Page, sr2 As ShapeRange
For Each p In ActiveDocument.Pages
    Set sr = p.Shapes.FindShapes
    For Each s In sr
        Call checkPowerClip(s)
        ' Jika bukan PowerClip cek jika Text Convert ke Curve
        If s.Type = cdrTextShape Then s.ConvertToCurves
    Next s
    Next p
End Sub

Private Function checkPowerClip(s As Shape)


Dim s2 As Shape, pwc As PowerClip, sr2 As ShapeRange
    If Not s.PowerClip Is Nothing Then
        Set pwc = s.PowerClip
        Set sr2 = pwc.Shapes.All
            pwc.EnterEditMode ' Masuk ke PowerClip
            For Each s2 In sr2
                    'Recrusive Jika ada Objek PowerClip lagi di dalam PowerClip
                    Call checkPowerClip(s2)
            If s2.Type = cdrTextShape Then s2.ConvertToCurves
            Next s2
            pwc.LeaveEditMode ' Keluar dari powerClip
    End If
End Function


Silahkan copy paste object tersebut pada Koleksi Macro Anda. atau buat Modul Baru pada Global Macro.




  1. Menu Windows - Dockers -Macro Manager (Alt + Shift + F11)
  2. Cari Visual Basic for Application lalu cari
  3. GlobalMacros - Klik Kanan - Create New Module Create New Macro Module CorelDraw
  4.  Beri nama dengan "MacroColection" lalu klik kanan pada module "MacroColection" klik "New Macro" otomatis akan muncul halaman blank putih tempan Code Macro nantinya.Membuat Macro Baru di CorelDraw
  5. Copy paste Kode Macro di atas dan simpan lalu tutup jendela MacronyaMacro Convert Text All Page CorelDraw
  6. Jika berhasil maka di CorelDraw pada Macro Manager akan ada List Macro sepeti gambar di bawah.
    Macro Convert Text All Page CorelDraw
    Contoh hasil Macro yang dibuat.
  7. Jalankan Macronya sesuai yang diinginkan jika ingin Include PowerClip pilih yang "ConvertAllTexttoCurveIncludePowerClip" maka otomatis CorelDraw akan mengkonversi seluruh text yang ada di semua halaman document yang sedang aktif.

    Selamat mengeksplorasi :)

    Salam #GRAFISin #Macro

Macro Auto Merger : Fast Merging Data, Barcode and Multiple Image for CorelDraw

$
0
0
GRAFISin kembali membuat Macro baru untuk kebutuhan Percetakan, maupun kerja desain anda yaitu Macro AutoMerger Pro untuk CorelDraw. Macro ini Bisa Merger data ke CorelDraw dari data CSV/TXT Excel beserta Foto/Image dan Barcode dan tentunya dalam hitungan menit proses merger data sudah jadi. Simak Kelebihan Fiturnya dan Video Tutorialnya :)

Screenshot :

Macro GRAFISin AutoMerger
Screenshot Macro AutoMerger Pro, Fast Merging Data, Image and Barcode for CorelDraw


Video Tutorial :

Simulasi 1 : Merging data ID Card model Portait yang Berisi ( 6 Data, 1 Barcode 128 , 1 Image Profile dan 1 Image QR Code)


Simulasi 2 : Merging data ID Card Portait, 1 Image (Rotate 90) 2 Data dan 1 Barcode (Rotate 90) 2 Master ID



Simulasi 3 : Merging data Label Undangan ( 3 Data x 12 Master Label) dan Numorator Kartu Undian ( 1 Data dan 1 Barcode x 2 x 5 Master Kartu Undian )


Simulasi 4 : Merging Brosur List Harga Alfa**** dan Indo**** dan Galery Album Foto


Download Macro


Download Barcode Font



Download Example Page


 

 

Ebook Gratis Cara Membuat Macro "Edit PowerClip Outside PowerClip" di CorelDraw

$
0
0
Hai GRAFISin :) kali ini saya ingin berbagi Ebook gratis tutorial pembuatan Macro "Edit PowerClip Outside PowerClip" yang mana tujuan dari Macro ini nantinya anda dapat Mengedit Banyak Macro tanpa perlu masuk ke Edit Mode PowerClip. Makin penasaran kan ? Simak Videonya :)

Hasil Akhir Macro "Edit PowerClip Outside PowerClip" : Silent Video




Contoh Integrasi dengan Macro AutoMerger : (Bahasa Indonesia)



Ebook Tutorial Macro "Edit PowerClip Outside PowerClip" di CorelDraw

Note: Bagi yang kebingungan saat download yaitu klik tombol SKIP ADS di pojok kanan atas kemudian akan dialihkan kehalaman download.
Password: http://www.grafisin.com

Free Macro Collections 2018 for CorelDraw

$
0
0
Macro for CorelDraw
Free Macro Collections 2018 For CorelDraw X4, X5, X6, X7, X8, CorelDraw 2017, CorelDraw 2018 yang berisi :

  1. Duplicator : For Duplicate Object or Duplicate "Page With Content"
  2.  TextReplace : For Replace Text In Active Selection, Active Page or All Pages with Custom Text Properties, and Can Replace Color. 
  3. ColorReplace : For Find and Replace Color Object, Or Replace Color Mode 
  4. PowerClipEdit : For Edit PowerClip Outside PowerClip 
  5. Tiling Object : For Duplicate and Tilng Object
  6. OptimizeObjectInPrintingArea : For Generate Max Of Combination Object to Save Print Area (Paper) 
  7. RandomColor : To Generate Random Color 
  8. Numorator : For Generate Numorator (Number Counter) 
  9. Thumbnailer : For Generate Thumnail from Diractory (Support *.*, jpg, .cdr, .bmp etc) 
  10. And More.... :) 
All Pack It's Free. #GRAFISin.com
Review & Tutorial : https://youtu.be/MfmKADoF_UY

Link Download 

Fitur Baru CorelDraw 2018 - Awesome

$
0
0
Kali ini GRAFISin ingin membagikan Review Tutorial Fitur Baru di CorelDraw 2018 :)

Simal videonya di Youtube.
Jangan lupa Subscribe dan Like :) #GRAFISin Channels



Gratis Vektor Halftone CorelDraw

$
0
0
Gratis Koleksi Halftone Vektor CorelDraw X4
Kali ini saya ingin Berbagi koleksi Vektor Halftone untuk Mempercantik kreasi Desain Anda. Silahkan di download, #Gratis dan Bisa dibuka Mulai dari CorelDraw X4.



Gratis Halftone Vektor CorelDraw Text Effect

Gratis Halftone Vektor CorelDraw


Google Drive : Download Vektor Halftone CorelDraw

Note: Bagi yang kebingungan saat download yaitu klik tombol SKIP ADS di pojok kanan atas kemudian akan dialihkan kehalaman download.
Password: http://www.grafisin.com

Video CorelDraw : Cara Membuat Menubar atau Commandbar dan Shorcut

3 Cara Membuat Efek Halftone (Bitmap, Manual Vector, Pointilizer) di CorelDraw

$
0
0
Halftone Effect




Kali ini saya akan membagikan 3 Cara Membuat Efek Halftone pada CorelDraw yaitu dengan Teknik Bitmap Efek, Vektor Manual dan Pointilizer ( Khusus Pointilizer hanya tersedia mulai dari CorelDraw 2018). Di akhir postingan ini saya sediakan juga Tutorial videonya.

1. Cara Bitmap

  • Buat Tulisan di Lembar Kerja Baru menggunakan "Text Tools" dengan tulisan misalnya "Halftone" di sini saya menggunakan font "Cooper Black"
    Membuat Text Untuk Efek halftone di CorelDraw
  • Berikan Warna sesuai selera, misalnya saya kasih warna biru. Lalu perbesar ukuran Textnya dan Tekan P di keyboard agar text berada di tengah halaman.
  • Convert Text "Halftone" ke Curve dengan Cara Klik Kanan lalu pilih Convert to Curves atau kombinasi Keyboard "Ctrl + Q"
  • Buat persegi panjang menggunakan Rectangle Tools kira-kira dari tengah tulisan Halftone ke bawah lalu beri warna pada fillnya dengan warna hitam dan tanpa outline.Membuat Persegi Panjang Untuk Efek halftone di CorelDraw
  • Berikan Efek Transparan pada Persegi panjang menggunakan Transparancy Tools lalu tarik dari tengah persegi panjang ke atas, sehingga bagian atas persegi panjangnya transparant.Membuat Persegi Panjang Transparant Untuk Efek halftone di CorelDraw
  • Pilih Menu Bitmap lalu Convert ke Bitmap (Mode Grayscale dan Resolusi 95, Centang Tranparancy dan Anti Aliasing)  pada persegi panjangnya.Convert to Bitmap Object Persegi Panjang untuk Halftone
  • Pilih Menu Bitmap - Color Transform - Halftone lalu berikan efek Halftone dan Atur total dot sesuai dengan keinginan.Membuat Efek Halftone Pada Bitmap di CorelDraw
  • Setelah jadi efek halftonenya sekarang Convert lagi ke Mode Black and White 1 Bit  agar object bitmap halftone yang kita buat tadi bisa diberikan warna sesuai selera tidak hanya black saja.Convert to Black White Halftone Bitmap
  • Berikan Warna pada Bitmap Halftone ( Putih = Fill sedangkan Linkaran Halftonenya adalah Outline) jadi fillnya di set none saja ( tanpa warna biar transparant ) dan outlinenya ganti misalnya warna biru tua.Pewarnaan Pada Halftone Bitmap di CorelDraw
  • Masukan Object ke PowerClip. dan geser hingga Pas.PowerClip Object Halftone di CorelDraw
  • Efek halftone sudah selesai, Mudah bukan? Nah selanjutnya berikan efek halftone juga pada Outline Objectnya Text Halftone, (Contour, Break Appart,  Bitmap Grayscale, Gaussian Blur, Halftone, Bitmap Black & White, Coloring) caranya simak di videonya saja yah :)
    Hasil Akhir Efek Halftone Bitmap di CorelDraw

2. Cara Vektor Manual

Cara Membuat Halftone Vektor manual menggunakan fasilitas Blending Tools, kelebihannya anda bisa menentukan sendiri Object apa yang ingin dijadikan Halftone, misalnya persegi bintang atau lainnya. Kelemahannya ya lumayan harus gerak-gerakin mouse :D . Kabar baiknya di CorelDraw 2018 sudah tersedia yaitu Pointilizer ada di Cara ke 3 ya gan.

  • Buat Persegi dan tempatkan di tengah page (Tekan P) lalu beri warna hitam misalnya.
  • Putar sebesar 45 derajat sehingga membentuk Object ketupat.
  • Duplikat lalu perkecil objectnya ya dengan perbandingan sekitar 1/10 dari object yang pertama kali dibuat.
  • Geser ke kanan dan duplikat lagi lalu geser ke atas, duplikat lagi lalu geser ke kiri sehingga seolah-olah membentuk koordinat berbentuk persegi.Membuat Vektor Halftone di CorelDraw
  • Gunakan Blend Tools lalu Tarik dari object Kiri Bawah ke Object Kiri Atas ( Total Blending pada tutorial ini saya set 13 object)
  • Lanjutkan blend tools lalu tarik dari object kanan bawah ke object kanan atas ( Pastikan total blendingnya juga sama seperti pada langkah sebelumnya)Pembuatan vektor Halftone CorelDraw
  • Break Appart yang di sebelah kiri beserta efek Blendnya lalu di Weld
  • Break Appart object yang sebelah kanan beserta Efek blendnya lalu di Weld
  • Blending lagi object yang sebelah kiri ke Object yang sebelah kananBlending Object Membuat Vektor Halftone
  • Group Semua Object lalu Duplicate dan Flip Horizontal Lalu atur posisinyaDuplicate Halftone Object di CorelDraw
  • Group lagi 2 Object tersebut lalu Duplicate dan Flip Vertical lalu atur posisinyaDuplikat Vertikal Object Halftone dan geser hingga pas
  • Berikan warna sesuai selera dan selesai :)
Efek Halftone Vektor Manual di CorelDraw dengan Blending Tools

3. Pointilizer (Khusus CorelDraw 2018)

Khusus Pengguna CorelDraw 2018 tersedia fitur baru Pointilizer untuk membuat Halftone Effect pada Object yang diinginkan, baik itu Bitmap, Text, Maupun Curve.
  • Buat Text dengan Text Tools misalnya "HALFTONE" di sini saya menggunakan font "Impact"
  • Perbesar dan Atur warna Textnya
  • Buat lagi Object Baru misalnya Bintang pada Toolbox ( Star -> Satu group pada Polygon Tools) Atur ukurannya dengan disesuaikan.
  •  Klik Menu Effect -> Pointilizer sehingga akan tampil Docker Pointilizer di sebelah kanan.
    Membuat Efek Halftone dengan Pointilizer
  • Selanjutnya atur pada Docker Pointillizer atur density, scale, screen angle dan lainnya, pastikan pada shape pilih custom (karena defaultnya CorelDraw hanya menyediakan Lingkaran dan persegi) 
    Custom Shape Object Pointillizer di CorelDraw 2018


  • Jika pada Pointilizer Object Bintangnya sudah tampil berarti anda sudah berhasil menambahkan custom object shape pointillizernya sekarang Klik Text Halftone yang dibuat lalu klik Appply pada Docker Pointilizer.Membuat Efek Halftone dengan Pointillizer di CorelDraw 2018
  • Hasil Akhir
Efek Halftone dengan Pointilizer di CorelDraw 2018 ke Atas

 

Video Tutorial 3 Cara Membuat Efek Halftone di CorelDraw




Salam Grafis, #GRAFISin.com :)

Cara Mengetahui Semua Shorcut di CorelDraw

$
0
0
Daftar List Shorcut CorelDraw
Urusan mencari jalan pintas memang sudah menjadi kebiasaan bersama, terlebih dalam urusan desain di corelDraw beberapa jalan pintas atau shorcut sangat sering gunakan untuk mempercepat proses desain dan kerja kita. Nah pertanyaannya ada berapakah shorcut di CorelDraw? Jawabannya #Buanyak... :D cara mengetahuinya gimana? Simak triknya di bawah ini :

Ctrl + J -> Shorcut Pintu Kemana Saja, sebarnya shorcut ini adalah untuk menampilkan Jendela "Option" di CorelDraw nah dengan Option ini anda bisa membuat Shorcut Baru, membuat Menu Bar baru atau mengotak-atiknya, kembali ke permasalahan Shorcut selanjutnya adalah:

  1. Customization -  Commands 
  2. Klik Tab Shorcut Keys  di sebelah kanannya, lalu
  3. Cari di bagian bawah View All
  4. Nanti akan ada jendela Shorcut CorelDraw yang tersedia, Dari situ Anda bisa Save As CSV atau langsung di Cetak.
Cara Mengetahui dan Mencetak Semua Shorcut di CorelDraw

#GRAFISin #Shorcut  #CorelDraw


Cara Membuat Shorcut Tambahan Sendiri : http://www.grafisin.com/2014/11/menambahkan-shorcut-icon-perintah-baru-di-coreldraw.html
Video Tutorialnya : http://www.grafisin.com/2018/04/video-coreldraw-cara-membuat-menubar.html

Efek Transparansi Grid pada Foto di CorelDraw

$
0
0

Tutorial Efek Transparansi grid pada Foto di CorelDrawTutorial Kali ini akan membahas mengenai pembuatan efek transparan grid box pada foto di CorelDraw agar tampilan foto Anda lebih menarik dan kreatif, tools yang digunakan yaitu Graph Paper Tools, SmartFill, dan kolaborasi dengan Free Macro kreasi GRAFISin yaitu "RandomColor" (Optional : tanpa ini pun Anda bisa berkreasi, macro ini hanya untuk mempercepat proses saja). Simak Tutorialnya :
  1. Buat Lembar Kerja Baru Lalu "Import gambar / foto" favorit Anda, kemudian Tekan P agar objek foto berada di tengah Halaman.
  2. Klik "Graph Paper tool" pada Toolbox dan Atur terlebih dahulu jumlah ke kanan dan bawahnya, pada tutorial ini ke kanan 6 dan bawah 12.Import Image dan Buat Graph Paper Efek Transparansi grid CorelDraw
  3. Posisikan Kursor pada Salah satu Sudut Foto lalu Tarik dan Tahan Graph paper dari sudut tersebut menyilang ke sudut lawan arahnya / atau \ Ungroup Object Graph Paper atau Grid Membuat Efek Transparansi di CorelDraw pada Foto
  4. Selanjutnya setelah Objek Graph paper dibuat Klik Kanan Lalu Ungroup Object atau Ungroup All Objects agar object grid tersebut menjadi objek terpisah yang nantinya digunakan dalam proses pewarnaan.
  5. Selanjutnya di sini saya menggunakan Macro Random Color untuk mewarnai Objek grid tersebut, pastikan objek grid semuanya masih terseleksi. Jalankan RandomColor, Pilih Active Selection, Pilih Mode RGB, Lalu Generate Random Colors. Anda bisa mendownloadnya gratis di sini Free Macro Collection 2018 for CorelDraw X4 up to CD2018, jika tanpa macro Anda bisa memberikan warna manual, caranya pilih boxnya satu-persatu lalu warnain fillnya dengan cara klik warna pada colorbar.
  6. Berikan Efek transparansi, Pastikan semua objek grid masih terseleksi lalu Klik Transparancy Tool lalu atur nilai transparansinya, pada tutor ini saya isi dengan 43%
  7. Jika Object grid sudah transparan selanjutnya percantik Outlinenya dengan warna putih, Double Klik pada bar bagian outline sehingga tampil dialog, lalu atur warna putih dan widthnya 1,5 atau 2 points sesuai selera.
  8. Terakhir tinggal percantik fokus foto/gambar, caranya adalah menghapus beberapa persegi/grid pada area foto yang ingin diberikan fokus.
  9. Selesai, :) Mudah dan praktis bukan.

Video Tutorial Efek Transparansi Grid pada Foto di CorelDraw 


    Membuat Efek PhotoCocktail Otomatis di CorelDraw X4 s.d 2018

    $
    0
    0
     Tutorial Free Macro Efek Photo Cocktail di CorelDraw X4 sampai CorelDraw 2018
    Tutorial Kali ini saya ingin membagikan Macro Kreasi GRAFISin yaitu "SimplePhotoCocktail" free macro untuk CorelDraw. Jika Anda pengguna CorelDraw 2018 lewati tutorial ini, karena di CorelDraw 2018 sudah tersedia fitur tersebut, simak "Review Fitur Baru CorelDraw 2018" berikut tutorialnya :

    1. Import Image Favorit Anda, Kemudian Atur Ukurannya dan tekan "P" agar posiinya berada ditengah halaman/page.
    2. Klik Pada Image lalu Jalankam Macro "SimplePhotoCocktail" makro ini merupakan paket macro gratis dari grafisin "Free Maro Collection 2018" dimana berisi lebih dari 20+ macro yang bermanfaat bagi mempercepat proses desain di CorelDraw.
    3. Cari Directory yang berisi koleksi gambar yang ingin digabung / di merge menjadi efek cocktail, lalu pilih extenstionnya, ( hanya support .jpg & .jpeg)
    4. Atur Kolom misalnya 20 dan Barisnya 10
    5. Atur Transparancy dari Objek image /tail yang nantinya akan di merge misalnya 65 %
    6. Atur Resolusi image akhir misalnya 100 dpi
    7. Centang "Keep Original Image" jika objek asilnya tidak ingin dimerge langsung, artinya objek asilnya di duplikat terlebih dahulu baru diberikan effect cocktail, jika tida dicentang maka objek aslinya akan menyatu langsung dengan efek coktail
    8. Klik "Generate" maka otomatis macro akan membuatnya, jika berhasil maka akan ada pesan success.
    9. Note : Objek image yang digenerate "tail image" menyesuaikan dengan ( total kolom dikali total row, jika kurang image di directorynya maka akan di ambil acak dari directory tersebut untuk memenuhi fotonya.

    Free Macro "Simple Photo Cocktail" for CorelDraw X4 up To CorelDraw 2018


     Video Tutorialnya bisa Anda lihat di bawah ini:

    #FunWithMacro, #CreativeWithCorelDraw #GRAFISin

    Ramadhan Berbagi 10 Aktivasi Macro GRAFISin

    $
    0
    0
    GRAFISin Gratis 10 Aktivasi Fidco, CsvMerger, AutoMerger dan ImageIR
    Dalam rangka Ramadhan 1439 H ( 2018 ) GRAFISin ingin mengajak kawan-kawan semua untuk berbagi kebaikan. GRAFISin akan membagikan 10 Aktivasi Gratis di edisi Ramadhan kali ini yang akan diumumkan pada hari ke 3 Ramadhan atau 19 Mei 2018. Adapun ketentuannya sebagai berikut :

    1. Siapapun boleh ikut berpartisipasi pada kegiatan ini syaratnya adalah anggota/ follower dari group/ fans page di bawah ini.
    2. Macro akan dibagikan di group sesuai kuota berikut. Komunitas Pengguna CorelDraw Indonesia ( 2 Macro ), CorelDraw Indonesia ( 2 Macro ), BELAJAR PERCETAKAN ( 2 Macro ) dan Fans Fage GRAFISin ( 4 Macro )
    3. Peserta bisa ikut berpartisipasi di ke 4 lokasi tersebut, tapi saat pengundian peserta yang menang tidak akan double.
    4. Cara Berpartisipasi yaitu : Berkomentar di Postingan yang saya bagikan di Group dengan salah satu hash tag berikut #GRAFISinBerbagi #2018GratisMacro, #RamadhanBerbagiKebaikan dikuti dengan Tag Teman di Group Tersebut.
    5. Pemenangnya akan diundi secara acak dan Macronya akan diberikan 1 untuk yang berkomentar dan 1 teman yang di tag ( Macronya bebas pilih salah satu dari 4 Macro yang dibagikan). 
      GRAFISin Berbagi di Ramadhan 1939H
      Contoh cara berpartisipasi.
    6. Di luar ketentuan di atas tidak akan dimasukan ke list undian.
    #SalamRamadhan #IndahnyaKebaikan. #GRAFISin

    Video Tutorial Cara Installasi Macro di CorelDraw

    Request Macro : Calculate Area And Length In CorelDraw

    $
    0
    0
    Cara Menghitung Luas dan Panjang Object di CorelDraw dengan Macro
    This Macro Request by Albert Gilm on Youtube GRAFISin Channels for Calculate Area & I Add Calculate Length too. Try This:

    Sub doCalculateArea()
    On Error Resume Next
    Dim s As Shape, sr As ShapeRange, s2 As Shape
    Dim oldUnit As cdrUnit, newUnit As cdrUnit
    Dim strUnit As String, strArea As String
    Dim strMessage As String

    Dim myOptionUnit, myOptionInfo


    ActiveDocument.ReferencePoint = cdrCenter
    '=== DEFAULT UNIT
    newUnit = cdrMillimeter
    strUnit = "mm"
    strArea = "²" 'SUBSCRIPT '2'

    myOptionUnit = InputBox("Enter Value 0 (mm), 1 (inch), 2 (cm)", "Change Unit:", 0)
    myOptionInfo = InputBox("Enter Value 0 (Dialog Box), 1 (Create Text In Object Selected)", "Option for Info Area:", 0)
       

    If myOptionUnit = 1 Then
        newUnit = cdrInch
        strUnit = "inch"
    ElseIf myOptionUnit = 2 Then
        newUnit = cdrCentimeter
        strUnit = "cm"
    End If

    '=== CHANGE UNIT
    'For Reset to Recent Document Unit
    oldUnit = ActiveDocument.Unit
    ActiveDocument.Unit = newUnit


    Set sr = ActiveSelectionRange
    For Each s In sr
        'IF NOT BITMAP & NOT CURVES MUST BE CONVERT TO CURVE
        If s.Type <> cdrBitmapShape And s.Type <> cdrCurveShape Then s.ConvertToCurves
       
        strMessage = "Name : " & s.Name & vbCrLf & "Area : " & s.Curve.Area & " " & strUnit & strArea & vbCrLf & "Length : " & s.Curve.Length & " " & strUnit & strArea & vbCrLf
       
        ' REMOVE ' BEFORE MsgBox If you want to Get Info By Dialog Message
      
        '========= START OPTION INFO
        If myOptionInfo = 0 Then
            MsgBox "Name : " & s.Name & vbCrLf & "Area : " & s.Curve.Area & " " & strUnit & strArea & vbCrLf & "Length : " & s.Curve.Length & " " & strUnit & strArea & vbCrLf
        Else
            '========== START CREATE INFO TEXT
            If s.Type = cdrCurveShape Then
       
                'CREATE INFO AREA IN ACTIVE LAYER WITH ARTISTIC TEXT
                Set s2 = ActiveLayer.CreateArtisticText(0, 0, strMessage, , , , 6)
           
                'ALIGN TEXT INFO AREA TO CURRENT SHAPE
                s2.AlignToShape cdrAlignHCenter + cdrAlignVCenter, s
               
                Set s2 = Nothing
            End If
            '========== END CREATE INFO TEXT
        End If
        '========= END OPTION INFO
       
       
    Next s

    'RESET TO RECENT DEFAULT UNIT
    ActiveDocument.Unit = oldUnit

    End Sub


    http://www.grafisin.com/2018/06/request-macro-calculate-area-and-length.html


    Follow GRAFISin Channels on Youtube

    Cara Cepat dan Praktis Membuat Polaroid Foto Otomatis di CorelDraw

    $
    0
    0
    Efek Polaroid Grid Otomatis di CorelDraw Menggunakan Macro
    Kali Ini saya Akan Membagikan Tutorial Cara Membuat Efek Polaroid Grid di CorelDraw Mengunakan Macro GRAFISin. Semuanya Serba Otomatis :)


    Follow GRAFISin Channels on Youtube


    Macro QR Code Generator Untuk CorelDraw

    $
    0
    0
    Sekarang gak usah khawatir lagi buat anda pengguna CorelDraw X6 dan X7 yang punya Account biasa tidak bisa menggunakan fitur QR Code generator, karena CorelDraw mensyartakan anda punya accout premium. GRAFISin kali ini ingin berbagi macro untuk membuat QR Code Otomatis, bahkan tidak hanya satuan tapi banyak sekaligus dari File Excel CSV. Berikut penampakan Macronya:

    QR Code Generator for CorelDraw Free

    Panduan:

    1. Masukan karakter yang ingin di input, 
    2. Pilih output (png, jpg, svg, dl)
    3. Pilih level correction, L= Low H=Hight 
    4. Pilih border, 
    5. Pilih warna barcode dan background jika diinginkan. 
    6. dan klik LIHAT untuk melihat dan menguji qrcodenya di layar. 
    7. Klik Buat untuk membuat 


    Keterangan:
    Tombol Buat = Membuat QR Code dan memasukannya ke CorelDraw berdasarkan data dari Karakter QR Code yang diinput.

    Tombol Special = untuk meggunakan fitur khusus jika ingin membuat banyak QR Code Sekaligus,

    Tombol Folder = mencari file CSV dan menampilkannya di list.

    Tombol Insert = Untuk menggunakan fitur ini anda harus membuat beberapa kotak terlebih dahulu di CorelDraw sebagai acuan lokasi Barcode. Sebelum klik tombol ini, Pilih Barcode di List sampingnya kemudian Klik INSERT kemudian pilih objek Kotak tempat lokasi Barcode ingin ditempatkan di CorelDraw kemudian pilih Barcode lainnya di list dan tekan tombol Insert lagi, sampai semua barcode di list masuk ke objek kotak yang anda buat di Corel Draw

    Tombol Buat semua = Untuk membuat semua Barcode yang di List kemudian memasukannya di CorelDraw tanpa mengatur Posisinya. (Setiap barcode berada di layer tersendiri)


    Macro QR Code Generator Untuk CorelDraw - X7

    Versi lainnya menyusul...

    Note: Bagi yang kebingungan saat download yaitu klik tombol SKIP ADS di pojok kanan atas kemudian akan dialihkan kehalaman download.
    Password: http://www.grafisin.com
    Viewing all 136 articles
    Browse latest View live