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?