Yardım dosya ismine göre resim getirme

Sub resimekle()

Dim sPicture As String, pic As Picture

On Error Resume Next
sPicture = "d:\dosyalarim\ozkansabanci\Pictures\Camera Roll\" & Range("B4") & ".jpg"
If sPicture = "False" Then Exit Sub
DoEvents
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
'resim yerleştirme yapılıyor
.ShapeRange.LockAspectRatio = msoFalse
.Height = Range("A1").Offset(0, 0).MergeArea.Height - 1
.Width = Range("A1").Offset(0, 0).MergeArea.Width - 1.5
.Top = Range("A1").Top + 1.1
.Left = Range("A1").Left + 1
.Placement = xlMoveAndSize
End With
Set pic = Nothing
'bitti
End Sub

Genişletmek için tıkla ...