TextBox yol tarif etme

[oydemir]

Formda bulduğum kod la resimleri getiriyorum fakat resim yolunu kod sayfasından değiştiriyorum

Bunun yerine userformda ki TextBox yazdığım adresten değişire bilimiyim.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Dim resim As Picture, alan As Range
'Set Alan = Range("b4:b6")
For Each resim In ActiveSheet.Pictures
If Not Intersect(resim.TopLeftCell, alan) Is Nothing Then
resim.Delete
End If
Next

Set alan = Nothing
Range("C6").Select
resimadi = LoadPicture("")
resimadi = Range("C1").Text & ".jpg"

ActiveSheet.Pictures.Insert("//11.11.11.11/bb/ss/gg/24-Kkk/" & resimadi).Select (değiştirdiğim satır)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 415 'yükseklik
Selection.ShapeRange.Width = 560 'genişlik
Selection.ShapeRange.Rotation = 0#
Range("C1").Select
Application.ScreenUpdating = True

End Sub

 

[Muzaffer Ali]

Merhaba.

Son klasörü değiştirmek için
Örnek Textbox1'e "24-Kkk" yazarsınz.

ActiveSheet.Pictures.Insert("//11.11.11.11/bb/ss/gg/" & textbox1.text & "/" & resimadi).Select

Tam yolu değiştirmek için
Örnek: Texbox1'e "11.11.11.11/bb/ss/gg/24-Kkk " yazarsınız

ActiveSheet.Pictures.Insert("//" & textbox1.text & "/" & resimadi).Select

 

[oydemir]

teşekkürler