formdan sayfaya istenilen boyutta resim eklemek

[efeboral]

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.

 

[xxrt]

Forumdabir çok örnek var
http://www.excel.web.tr/viewtopic.php?p=88561#88561

 

[Haluk]

Seçilen resim D5 hücresine, hücrenin ölçülerinde yerleştirilir ....

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

 

[efeboral]

Yardımlarınız için teşekkür ederim.
İyi Çalışmalar...

 

[efeboral]

Bilmiyorum çokmu oluyorum ama resmi a9 ile d29 arasına gelicek şeklilde boyutlandırabilirmiyiz?

 

[Haluk]

Değerlerle oynayarak ayarlayın ...

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

 

[efeboral]

Teşekkür ederim Haluk Bey iyi çalışmalar.