formdan sayfaya istenilen boyutta resim eklemek

Katılım
4 Ocak 2006
Mesajlar
177
Excel Vers. ve Dili
Office2007 İngilizce
ekteki dosyada dosya seç bölümünde iki ayrı resim seçmemiz gerekiyor. Bu resimleri sheet üzerinde istediğimiz yere ve istediğimiz boyutta nasıl ekletebiliriz.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Seçilen resim D5 hücresine, hücrenin ölçülerinde yerleştirilir ....

Kod:
Sub Test()
    Dim MyPic
    MyPic = Application.GetOpenFilename("BMP dosyalari (*.bmp),*.bmp,JPG dosyalari (*.jpg),*.jpg)")
    If Not MyPic = False Then
        pLeft = Range("D5").Left
        pTop = Range("D5").Top
        pWidth = Range("D5").Width
        pHeight = Range("D5").Height
        ActiveSheet.Shapes.AddPicture MyPic, True, True, pLeft, pTop, pWidth, pHeight
    End If
End Sub
 
Katılım
4 Ocak 2006
Mesajlar
177
Excel Vers. ve Dili
Office2007 İngilizce
Yardımlarınız için teşekkür ederim.
İyi Çalışmalar...
 
Katılım
4 Ocak 2006
Mesajlar
177
Excel Vers. ve Dili
Office2007 İngilizce
Bilmiyorum çokmu oluyorum ama resmi a9 ile d29 arasına gelicek şeklilde boyutlandırabilirmiyiz?
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Değerlerle oynayarak ayarlayın ...

Kod:
Sub Test()
    Dim MyPic
    MyPic = Application.GetOpenFilename("BMP dosyalari (*.bmp),*.bmp,JPG dosyalari (*.jpg),*.jpg)")
    If Not MyPic = False Then
        pLeft = Range("A9").Left
        pTop = Range("A9").Top
        pWidth = 300
        pHeight = 300
        ActiveSheet.Shapes.AddPicture MyPic, True, True, pLeft, pTop, pWidth, pHeight
    End If
End Sub
 
Katılım
4 Ocak 2006
Mesajlar
177
Excel Vers. ve Dili
Office2007 İngilizce
Teşekkür ederim Haluk Bey iyi çalışmalar.
 
Üst