Bu derste de CorelDraw sayfası içindeki RGB modundaki bir/birçok resmi CMYK moduna çevirme kodlarını inceleyeceğiz.
Evet kodlarımızı yazmaya başlayalım ve de açıklamalarını da karşılarına ekleyelim (' ile başlayan yerler tanımlar için, kod olarak işlemezler);
Dim b As Shape 'Aranacak RGB modundaki bmp'ye bir tanım yapıyoruz.
For Each b In d.ActivePage.FindShapes ' aktif sayfadaki RGB bmpler için bir "arama döngüsü" oluşturacağız.
If b.Type = cdrBitmapShape Then 'Eğer bmp tipi cdr bitmap ise (1. koşulumuz)
If b.Bitmap.Mode = cdrRGBColorImage Then 'Eğer bmp renk modu cdr RGB ise (2. koşulumuz)
b.Bitmap.ConvertTo cdrCMYKColorImage 'bu resimi CMYK moda çevir.
End If '1. Koşul sonu
End If '2. Koşul sonu
Next b 'Sıradaki bmp'ye geçelim
Şimdi kodların normal yazılmış haline bir göz atalım.