Çözüldü resim adını değiştirme

zulfuernek

Altın Üye
Katılım
24 Haziran 2017
Mesajlar
723
Beğeniler
5
Excel Vers. ve Dili
türkçe
#1
image nesnesine çağırdığım resim adını textbox ile nasıl değiştiririz?
 
Katılım
31 Aralık 2014
Mesajlar
1,559
Beğeniler
31
Excel Vers. ve Dili
Excel 2010
#3
Aşağıdaki gibi deneyin
Kod:
Private Sub CommandButton1_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox2 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label8.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label1.Caption & uzantı(a)) = True Then
Name yol & Label1.Caption & uzantı(a) As yol & TextBox2.Text & uzantı(a)
End If
Next
Label1.Caption = TextBox2.Text
TextBox2 = ""
End Sub


Private Sub CommandButton4_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox3 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label9.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label2.Caption & uzantı(a)) = True Then
Name yol & Label2.Caption & uzantı(a) As yol & TextBox3.Text & uzantı(a)
End If
Next
Label2.Caption = TextBox3.Text
TextBox3 = ""
End Sub
 
Üst