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...
Resmin Boyutlarını Almak
Resim yükleme kısmındaki kodlarınız şu şekilde olacak:
MsgBox ile ekrana en ve boylarını ayrı ayrı yazdırdım. Siz nasıl kullanmak isterseniz onu ayarlarsınız.
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Ö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.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
İ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...
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?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Konuyu Okuyanlar: 1 Ziyaretçi