AD (728x60)

shorten links and earn money

Contact Me

My Services

Rabu, 14 Maret 2018

Convert To Curve All Text In All Page CorelDraw Include PowerClip

Share & Comment
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
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