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:

Visual Basic Code
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 


Visual Basic Code
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