Convert To Curve All Text In All Page CorelDraw Include PowerClip

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
4.  Beri nama dengan "MacroColection" lalu klik kanan pada module "MacroColection" klik "New Macro" otomatis akan muncul halaman blank putih tempan Code Macro nantinya.
5. Copy paste Kode Macro di atas dan simpan lalu tutup jendela Macronya
6. Jika berhasil maka di CorelDraw pada Macro Manager akan ada List Macro sepeti gambar di bawah.
   

   

   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