selamlar;
yaptığım Excel çalışmamda H hücresindeki resim yolunda bulunan resmi p hücresine makro ile yerleştirmek istiyorum yardım ederseniz sevinirim.
Son Düzenleme: 20/05/2021, 18:39, Düzenleyen: Jer Fin.
Sub Resim_Al()
Dim a As Integer
Dim son As Integer
Dim resim As String
son = Range("H" & Rows.Count).End(xlUp).Row
On Error Resume Next
For a = 3 To son
resim = Cells(a, 8)
With ActiveSheet.Pictures.Insert(resim)
.Left = Cells(a, 16).Left
.Top = Cells(a, 16).Top
.ShapeRange.LockAspectRatio = True
.ShapeRange.Height = 49
End With
Rows(a).RowHeight = 50
Next a
On Error GoTo 0
MsgBox "İşlem Tamam", vbInformation, "userx"
End Sub