VBA modüllerine ulaşmak için ya VBA editör içinden başla komutu, yada menüler arasında geçişler yaparak komutlar veririz. Bu biraz da işin fantastik kısmı da olsa Visual Basic yardımıyla dışardan bir exe ile ilgili program ve içindeki VBA modülü çalıştırmak hoş yada pratik olabilir.

Bu dersteki örneğimiz CorelDraw içindeki FileConverter modülü üzerine olacak. (CorelDraw dersleri altında VBA derslerimize bir ek olarak düşünülebilir.)

Öncelikle bir form üzerine bir command buton yerleştiriyoruz. Üzerine "FileConvertar Başlat" gibisinden bir yazı da yazabiliriz.



Butonumuza çift tıklayıp gelen kod penceresine şu kodları yazalım;

Dim Converter As String 'Converter için bir string atıyoruz.
Dim cDraw As Object'CorelDraw için bir string atıyoruz.
Dim gms As CorelDRAW.GMSManager'CorelDraw GMS'nin tanımını yapıyoruz.
If CorelDRAW.Visible = True Then 'Eğer Corel halihazırda açık ise...
Set cDraw = CreateDocument'yeni bir boş döküman yarat...
CorelDRAW.InitializeVBA'VBA bölümünü çalıştır...
CorelDRAW.Visible = True'CorelDraw aktif...
Set gms = CorelDRAW.GMSManager'GMS'nin CorelDraw gmssi ve aktifliğini ayarlıyoruz.
GMSManager.RunMacro "FileConverter", "Converter.start"'FileConverter denen makro içinde "Converter" modülüne "başla" diyoruz...
Else 'aksi takdirde (yada corel halen açık değilse)
Set cDraw = CreateObject("CorelDraw.Application")'CorelDraw programını başlat...
cDraw.CreateDocument'yeni bir boş döküman yarat...
cDraw.InitializeVBA'VBA bölümünü çalıştır...
cDraw.Visible = True'CorelDraw aktif...
Set gms = CorelDRAW.GMSManager'GMS'nin CorelDraw gmssi ve aktifliğini ayarlıyoruz.
GMSManager.RunMacro "FileConverter", "Converter.start"'FileConverter denen makro içinde "Converter" modülüne "başla" diyoruz...

End If'eğer koşulunun sonu

Şimdi aşağıdaki görüntüyü de CorelDraw VBA Editör içinden aldım. Sarı ile boyadığım yerlere dikkatinizi çekerim. Üstteki kodları (start, converter vs) neye göre yazdığımı biraz daha iyi anlayabilirsiniz.



Kodların normal yazılmış görünümü şöyle olmalıdır;

Dim cDraw As Object
Dim gms As CorelDRAW.GMSManager
If CorelDRAW.Visible = True Then
Set cDraw = CreateDocument
CorelDRAW.InitializeVBA
CorelDRAW.Visible = True
Set gms = CorelDRAW.GMSManager
GMSManager.RunMacro "FileConverter", "Converter.start"
Else
Set cDraw = CreateObject("CorelDraw.Application")
cDraw.CreateDocument
cDraw.InitializeVBA
cDraw.Visible = True
Set gms = CorelDRAW.GMSManager
GMSManager.RunMacro "FileConverter", "Converter.start"

End If 

- Kaynak dosyayı indirmek için tıklayın