Sayın ozan hocam, eski sorumun altına yazmıştım, belgeyi ekleyemediğim için,
yeni konu açayım dedim,

Resmi eklerken, Eklediğim resmin boyutunu Resim ve Video Boyutları ,
metin kutusuna nasıl alabiliriz.
Saygılar...

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.

alpeki99 Hocamın örneğine istinaden, ek olarak örnek olması açısından 

Set EXCL = New EXCeL.Application



With EXCL

.Application.Visible = True

.UserControl = False



End With

Set KTP = EXCL.Workbooks.Add

 Set syf = KTP.Worksheets(1)



With EXCL

.ActiveWindow.DisplayGridlines = False



         PicLocation = CurrentProject.Path & "\Resminiz.jpg"   

syf.Shapes.AddPicture PicLocation, False, True, 330, 48, 212, 227

                                               ' Sol, Üst, Genişlik, Yükseklik

 

End With

Örnek olarakta hazırlayayım dedim. Ekteki örneği inceleyiniz. Ofis 2010 sürümüne uyumludur. eğer daha farklı bir sürüm kullanıyrsanız. Vba dan referanslar bölümüünden gerekli Excel referansını seçiniz.

İlginiz için çok teşekkürler arkadaşlar,
sayın alpeki, video'nun boyutunu nasıl alırız, çünkü video eklerken hata alıyorum.
son halini tekrar gönderiyorum.
Çok teşekkür ederim...

Videonun dosya boyutu ya da çözünürlük boyutu hangisine ihtiyacınız var?