Aşağıda ki kodlamada C:\resim klasöründen A1 hücresindeki değeri alarak resim B6 hücresine çağırma yapıyorum. Küçük bir problem var. Hedef hücre olan B6 ya resim geliyor fakat faklı bir sayfanın hücresine (örnek : Sayfa3 B9 veya Sayfa4 C7 vb.) getiremedim. Activesheets, sheets, sheet komutlarını farklı kombinasyonlarda denedim ama olmadı. Butonun bulunduğu sayfaya (Sayfa1) resim geliyor fakat diğer sayfalara gelmiyor. Bu Konuda Yardımlarınızı Bekliyorum. İyi Günler.
Sub Resim_Aktarma()
Range("B6").Select
Dim resim As String
Resim = Range("A1")
ActiveSheet.Pictures.Deleted
ActiveSheet.Pictures.Insert("C:\Resim\ & resim & ".jpg").Select 'Path to where pictures are stored
With Selection
.Left = Range("B6").Left
.Top = Range("B6").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100#
.ShapeRange.Width = 80#
.ShapeRange.Rotation = 0#
End With
End Sub
Sub Resim_Aktarma()
Range("B6").Select
Dim resim As String
Resim = Range("A1")
ActiveSheet.Pictures.Deleted
ActiveSheet.Pictures.Insert("C:\Resim\ & resim & ".jpg").Select 'Path to where pictures are stored
With Selection
.Left = Range("B6").Left
.Top = Range("B6").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100#
.ShapeRange.Width = 80#
.ShapeRange.Rotation = 0#
End With
End Sub
