Image

Image denetimi nedir ve nereye eklenir​

• UserForm: Geliştirici > Visual Basic (Developer > Visual Basic) ile VBA düzenleyicisini açın, Ekle > UserForm (Insert > UserForm) ile bir form oluşturun, ardından Araç Kutusu'ndaki Image simgesini forma sürükleyin. Varsayılan adı Image1, Image2 biçimindedir.
• Çalışma sayfası: Geliştirici > Ekle > ActiveX Denetimleri > Resim (Developer > Insert > ActiveX Controls > Image) yolunu izleyin. Bu durumda denetim sayfadaki bir nesne olarak durur ve resim çalışma kitabının içine gömülür.

Önemli özellikler​

• Picture: Gösterilen resmi belirler. Kodla atama yapılırken genellikle LoadPicture işlevi kullanılır.
• PictureSizeMode: Resmin denetim kutusuna nasıl sığdırılacağını belirler. fmPictureSizeModeClip (0) resmi gerçek boyutunda bırakır ve taşan kısmı keser, fmPictureSizeModeStretch (1) resmi kutuyu dolduracak şekilde gerer, fmPictureSizeModeZoom (3) en boy oranını koruyarak sığdırır. Varsayılan değer Clip'tir.
• PictureAlignment: Resmin kutu içindeki konumunu belirler: fmPictureAlignmentTopLeft (0), TopRight (1), Center (2), BottomLeft (3), BottomRight (4). Varsayılan Center'dır.
• PictureTiling: True olursa resim kutuyu kaplayacak şekilde döşenir (mozaik).
• BorderStyle: fmBorderStyleNone (0, kenarlıksız) ya da fmBorderStyleSingle (1, tek çizgi). Varsayılan kenarlıksızdır.
• BorderColor: Kenarlık rengi. Yalnızca BorderStyle tek çizgi iken görünür.
• SpecialEffect: Kutunun üç boyutlu görünümü: Flat (0), Raised (1), Sunken (2), Etched (3), Bump (6).
• BackColor ve BackStyle: Resmin arkasında kalan alanın rengi ve saydam ya da opak olması.
• AutoSize: True olursa denetim, resmin boyutuna göre yeniden boyutlanır.
• Visible, Enabled, ControlTipText: Görünürlük, etkinlik ve fare üzerine gelince çıkan ipucu metni.
• Left, Top, Width, Height: Denetimin konumu ve boyutu (punto cinsinden).

Önemli yöntemler ve olaylar​

• Move: Denetimi yeni bir konuma taşır ya da boyutunu değiştirir.
• ZOrder: Denetimin diğer denetimlere göre ön ya da arka katmanda durmasını sağlar.
• Click ve DblClick: Resme tıklandığında ve çift tıklandığında çalışır.
• MouseDown, MouseMove, MouseUp: Fare düğmesi basıldığında, fare resmin üzerinde hareket ettiğinde ve düğme bırakıldığında çalışır. Resim üzerinde sürükleme ya da koordinat okuma için kullanılır.
• BeforeDragOver ve BeforeDropOrPaste: Sürükle-bırak işlemleri için kullanılır.
• Error: Denetimde bir hata oluştuğunda çalışır.

Resim yükleme ve çalışma sayfasında kullanım​

Me.Image1.Picture = LoadPicture("C:\Resimler\logo.jpg")
Me.Image1.Picture = LoadPicture("")

Sheets("Sayfa1").Image1.Picture = LoadPicture("C:\Resimler\logo.jpg")
Sheets("Sayfa1").OLEObjects("Image1").Object.PictureSizeMode = 3

1. Forma logo yükleme​

Option Explicit

Private Sub UserForm_Initialize()
    Dim yol As String
    yol = ThisWorkbook.Path & "\logo.jpg"

    ' Dosya varsa resmi yükle
    If Dir(yol) <> "" Then
        With Me.Image1
            .Picture = LoadPicture(yol)
            .PictureSizeMode = fmPictureSizeModeZoom
            .PictureAlignment = fmPictureAlignmentCenter
            .BorderStyle = fmBorderStyleNone
        End With
    Else
        ' Dosya bulunamadıysa boş bir kutu göstermeyin
        Me.Image1.Visible = False
    End If
End Sub

2. Listeden seçilen ürünün resmini gösterme​

Option Explicit

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Ürün Resimleri")

    ' Ürün adlarını açılır listeye ekle
    For i = 2 To 6
        Me.ComboBox1.AddItem ws.Cells(i, 1).Value
    Next i

    Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

Private Sub ComboBox1_Change()
    Dim ws As Worksheet
    Dim dosya As String

    ' Henüz bir seçim yoksa çık
    If Me.ComboBox1.ListIndex < 0 Then Exit Sub

    Set ws = ThisWorkbook.Worksheets("Ürün Resimleri")
    dosya = ThisWorkbook.Path & "\Resimler\" & ws.Cells(Me.ComboBox1.ListIndex + 2, 2).Value

    If Dir(dosya) <> "" Then
        Me.Image1.Picture = LoadPicture(dosya)
    Else
        ' Resim yoksa denetimi boşalt
        Me.Image1.Picture = LoadPicture("")
    End If
End Sub

Private Sub Image1_Click()
    Me.Caption = "Seçili ürün: " & Me.ComboBox1.Value
End Sub

3. PictureSizeMode sabitlerinin değerleri​

Option Explicit

Sub ModDegerleriniYaz()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Mod Değerleri")

    For i = 2 To 4
        Select Case ws.Cells(i, 1).Value
            Case "Clip"       ' fmPictureSizeModeClip
                ws.Cells(i, 2).Value = 0
                ws.Cells(i, 3).Value = "Resim kırpılır, boyutu değişmez"
            Case "Stretch"    ' fmPictureSizeModeStretch
                ws.Cells(i, 2).Value = 1
                ws.Cells(i, 3).Value = "Kutuyu dolduracak şekilde gerilir"
            Case "Zoom"       ' fmPictureSizeModeZoom
                ws.Cells(i, 2).Value = 3
                ws.Cells(i, 3).Value = "En boy oranı korunarak sığdırılır"
        End Select
    Next i
End Sub

Kullanırken dikkat edin​

• Dosya yolunu ve varlığını denetleyin: LoadPicture, dosya bulunamazsa çalışma zamanı hatası verir. Resmi yüklemeden önce Dir işleviyle dosyanın var olduğunu denetleyin. Yolu sabit yazmak yerine ThisWorkbook.Path ile çalışma kitabının klasörünü temel alırsanız dosyayı başka bilgisayara taşıdığınızda kod bozulmaz.
• Desteklenen biçimler: LoadPicture BMP, JPG, GIF, ICO, WMF ve CUR biçimlerini okur. PNG dosyaları yeni sürümlerde çoğunlukla yüklenir ancak saydam arka planlar beklediğiniz gibi görünmeyebilir. Çok büyük çözünürlüklü resimler formun açılışını yavaşlatır; resmi önceden küçültmeniz önerilir.
• Resim bozuk görünüyorsa PictureSizeMode'a bakın: Varsayılan Clip modunda büyük bir resmin yalnızca bir bölümü görünür. Resmin tamamını bozmadan göstermek için fmPictureSizeModeZoom, kutuyu tamamen doldurmak için (oran bozulabilir) fmPictureSizeModeStretch kullanın.
• Gömülü resim dosya boyutunu büyütür: Özellikler penceresinden Picture'a atanan ya da sayfadaki ActiveX Image'a verilen resim çalışma kitabının içine gömülür ve dosya boyutunu artırır. Kodla LoadPicture kullanırsanız resim dosyada saklanmaz, ancak bu kez resim dosyasının her bilgisayarda aynı yolda bulunması gerekir.
• Mac ve ActiveX sınırlaması: UserForm içindeki Image denetimi ile çalışma sayfasındaki ActiveX denetimleri Mac için Excel'de sınırlı desteklenir ya da hiç desteklenmez. Dosyayı farklı platformlarda paylaşacaksanız bunu göz önünde bulundurun.
• Sayfadaki sıradan resimler için farklı yöntem: Ekle menüsünden eklenen resimler Image denetimi değil, Shape nesnesidir. Onları kodla yönetmek için Shapes koleksiyonu ve AddPicture yöntemi kullanılır; Picture, PictureSizeMode gibi Image özellikleri bu nesnelerde yoktur.
• İlgili konular:
  • LoadPicture: Resim dosyasını yükleyen işlev.
  • UserForm: Image denetiminin üzerinde yer aldığı form nesnesi.
  • ComboBox ve ListBox: Resim seçimi için birlikte kullanılan denetimler.
  • Dir: Dosya varlığını denetleyen işlev.
  • OLEObjects: Sayfadaki ActiveX denetimlerine ulaşma koleksiyonu.
  • Shapes.AddPicture: Sayfaya sıradan resim ekleme yöntemi.
  • ThisWorkbook.Path: Çalışma kitabının klasörünü verir.