Skip to main content

AccessTr.neT


Resmin Boyutlarını Almak

Resmin Boyutlarını Almak

Çözüldü #1
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...
.rar RESIM-BOYUT.rar (Dosya Boyutu: 63,15 KB | İndirme Sayısı: 10)
Cevapla
#2
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.
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.
Cevapla
#3
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. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#4
Ö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.
.rar ozguryasin.rar (Dosya Boyutu: 94,02 KB | İndirme Sayısı: 12)
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. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#5
İ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...
.rar RESIM-BOYUT.rar (Dosya Boyutu: 75,97 KB | İndirme Sayısı: 7)
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task