Sisimores
Üye
-
- Katılım
- 7 Temmuz 2012
-
- Mesajlar
- 857
-
- Tepkime puanı
- 0
-
- ForumSAL Yaşı:
- 14 yıl 3 ay
- Kıdem:
- Forumun Eskisi
-
- Yaş
- 31
-
- Web sitesi
- grafikerleriz.com
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.
Kod:
Dim d As DocumentDim b As ShapeFor Each b In d.ActivePage.FindShapes If b.Type = cdrBitmapShape Then If b.Bitmap.Mode = cdrRGBColorImage Then b.Bitmap.ConvertTo cdrCMYKColorImage End If End If Next b
Eğer birden fazla döküman açıksa ve de bunlar içindeki RGB bmplerin CMYK'ya çevrilmesini istiyorsak, bu kodlarımıza da döküman için döngü eklemeliyiz. (geçen dersimizden hatırlıyoruz)
Görünüm şu şekilde olur.
Kod:
Dim d As DocumentDim b As ShapeFor Each d In DocumentsFor Each b In d.ActivePage.FindShapes If b.Type = cdrBitmapShape Then If b.Bitmap.Mode = cdrRGBColorImage Then b.Bitmap.ConvertTo cdrCMYKColorImage End If End If Next b Next d
Evet sayfaya gelişigüzel birkaç RGB modlu bmp import edip kodumuzu çalıştıralım. (Sub ve End Sub blokları arasına yapıştırabilirsiniz.)
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.
Kod:
Dim d As DocumentDim b As ShapeFor Each b In d.ActivePage.FindShapes If b.Type = cdrBitmapShape Then If b.Bitmap.Mode = cdrRGBColorImage Then b.Bitmap.ConvertTo cdrCMYKColorImage End If End If Next b
Eğer birden fazla döküman açıksa ve de bunlar içindeki RGB bmplerin CMYK'ya çevrilmesini istiyorsak, bu kodlarımıza da döküman için döngü eklemeliyiz. (geçen dersimizden hatırlıyoruz)
Görünüm şu şekilde olur.
Kod:
Dim d As DocumentDim b As ShapeFor Each d In DocumentsFor Each b In d.ActivePage.FindShapes If b.Type = cdrBitmapShape Then If b.Bitmap.Mode = cdrRGBColorImage Then b.Bitmap.ConvertTo cdrCMYKColorImage End If End If Next b Next d
Evet sayfaya gelişigüzel birkaç RGB modlu bmp import edip kodumuzu çalıştıralım. (Sub ve End Sub blokları arasına yapıştırabilirsiniz.)