+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Resmin Boyutlarını Almak (/konu-resmin-boyutlarini-almak.html)
Resmin Boyutlarını Almak - ates2014 - 12/03/2018
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...
Cvp: Resmin Boyutlarını Almak - alpeki99 - 12/03/2018
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.
Cvp: Resmin Boyutlarını Almak - ozguryasin - 12/03/2018
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
Cvp: Resmin Boyutlarını Almak - ozguryasin - 12/03/2018
Ö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.
Cvp: Resmin Boyutlarını Almak - ates2014 - 14/03/2018
İ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...
Cvp: Resmin Boyutlarını Almak - alpeki99 - 14/03/2018
Videonun dosya boyutu ya da çözünürlük boyutu hangisine ihtiyacınız var?