FORMÜLE EK ="C:\Users\Reis\Desktop\NEWSS\"&B6&".jpg"

[MOZCELİK53]

Dosyamı 3 farklı pc de kullanıyorum resimler dosyaları taşıyorum sürekli her pc de kullanabilmem için bilgisayar yolundaki adını otomatik yazdırmanın yolu varmı .
Yada Masa üstündeki resimlerden değilde flash bellekteki dosyadan okumasını sağlayabilirmiyim . Şimdiden teşekkür ederim. Kullandığım kodlar aşağıda

Sub yukle(yol As String)
Dim kutu As ShapeRange

Set kutu = ActiveSheet.Shapes.Range(Array("Rounded Rectangle 6"))

kutu.Fill.UserPicture yol

Range("L3").Select

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
yukle (Range("H53"))
End Sub

 

[Levent Menteşoğlu]

Dosyamı 3 farklı pc de kullanıyorum resimler dosyaları taşıyorum sürekli her pc de kullanabilmem için bilgisayar yolundaki adını otomatik yazdırmanın yolu varmı .

Dosyanızın yolunu aşağıdaki gibi bir değişkene atayabilirsiniz.

yol=ActiveWorkbook.Path