Resmi Excelde Boyama

Bu dosya, bilgisayarınızdan seçtiğiniz bir resmi Excel hücrelerinin arka plan renkleriyle yeniden çizen bir VBA örneğidir. Ortaya çıkan görüntü sayfaya eklenmiş bir resim nesnesi değildir; her piksel için bir hücre boyanır.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Resim: Boyamanın yapıldığı sayfadır. Başlangıçta boştur, kullanılan alan A1:ADT616 aralığındadır. Formül, tablo veya grafik yoktur.
• frmResim: Resmi seçmek ve çizdirmek için kullanılan UserForm'dur. İçinde iki düğme ve seçilen resmin önizlemesini gösteren bir Image denetimi bulunur.
• Module1: Formu açan ResimFormunuGoster makrosunu içerir.

Makrolar​

• ResimFormunuGoster: frmResim formunu açar. Çalıştırmak için Alt+F8 ile makro listesini açıp bu makroyu seçebilirsiniz.
• CommandButton1_Click: Dosya seçme penceresini açar. Pencere yalnızca .bmp ve .jpg/.jpeg dosyalarını listeler. Seçilen resim formdaki önizleme alanına yüklenir ve çizim düğmesi etkinleşir.
• CommandButton2_Click: Resmi geçici klasöre tmp.bmp adıyla BMP olarak kaydeder, çizim yordamını çağırır ve işlem bitince bu geçici dosyayı siler.
• BmpCiz: "Resim" sayfasındaki önceki içeriği temizler, BMP başlık bilgilerinden genişlik ve yüksekliği okur, satır yüksekliğini 1, sütun genişliğini 0,085 yaparak hücreleri çok küçük kareler haline getirir. Ardından her pikselin RGB değerini okuyup ilgili hücrenin Interior.Color özelliğine uygular. Her 20 satırda bir ekranı yenileyerek ilerlemeyi gösterir.

Kodda zararlı bir işlem görünmüyor. Dosya silme komutu (Kill) yalnızca geçici klasördeki tmp.bmp için kullanılıyor, dışarıya bağlantı yok. Seçtiğiniz resim dosyasına dokunulmaz, ancak Resim sayfasındaki mevcut içerik çizim öncesinde silinir.

Kodda bir yazım hatası var: ScreenUpdating satırında "falase" yazıyor. Bu satır, 20 satırlık yenileme döngüsünde hata verebilir ve düzeltilmesi gerekebilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. ResimFormunuGoster makrosunu çalıştırarak formu açın.
3. "1. Resim yükle" düğmesine tıklayıp bilgisayarınızdan bir BMP veya JPEG resim seçin.
4. Önizlemeyi kontrol edin ve "Excel'de çiz" düğmesine tıklayın.
5. Çizim bitene kadar bekleyin. Resim büyükse işlem uzun sürebilir.

Küçük boyutlu resimler daha hızlı çizilir; çünkü her piksel için ayrı bir hücre boyanır.