Resim yükleme kısmındaki kodlarınız şu şekilde olacak:

Private Sub Komut19_Click() 'resim ekle

Dim Sonuc As Integer

Dim objImage As Object

Set objImage = CreateObject("WIA.ImageFile")

  

    With Application.FileDialog(msoFileDialogOpen)

    

        .Title = "Select a file"

        .Filters.Clear

        .Filters.Add "Tüm Dosyalar", "*.*"

        .AllowMultiSelect = False

        .Title = "ATEŞ.SOFT...   < Belge Seçme Formu >"

        .InitialFileName = CurrentProject.Path

        Sonuc = .Show

        

            If (Sonuc <> 0) Then

                Me![resimlink] = Trim(.SelectedItems.Item(1))

                Me.cerceve.Picture = Me.resimlink

                

                objImage.LoadFile Me.resimlink

                MsgBox "Width: " & objImage.Width

                MsgBox "Height: " & objImage.Height

  

            End If

    End With



End Sub

MsgBox ile ekrana en ve boylarını ayrı ayrı yazdırdım. Siz nasıl kullanmak isterseniz onu ayarlarsınız.