- Katılım
- 14 Kasım 2021
- Mesajlar
- 42
- Excel Vers. ve Dili
- Excell 2010 Türkçe
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
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