...Option Explicit
Private Sub cmdAdd_Click()
On Error Resume Next
Dim imagepath As String
imagepath = Application.GetOpenFilename(filefilter:="Picture files,*.gif;*.jpg;*.jpeg", Title:="Add Picture")
If imagepath <> False Then
Sheet1.Image1.Picture = LoadPicture(imagepath)...
Merhabalar;
Youtube'da izlediğim bir videonun aynısını yaptım fakat buton kodları çalışmıyor, hata veriyor
Add Picture butonu tıklıyorum Resim seçiyorum Kaydederken Type Mismatsch hatası veriyor debug olarak bu satırı gösteriyor If imagepath <> False Then
Clear butonunda keza yine hata veriyor...
Merhaba,
Deneyiniz...
Private Sub anaformliste_Change()
resim = ThisWorkbook.Path & "\" & anaformliste.Text & ".jpg"
If Dir(resim) = "" Then
Image1.Picture = LoadPicture()
Else
Image1.Picture = LoadPicture(resim)
End If
End Sub
teşekkür ederim Necati hocam. Ama şöyle bir sorun var; kodu çalıştırdığımda önce hata penceresi çıkıyor, "end" dediğimde ise resmi siliyor. sebebi ne olabilir?
Halit bey merhaba,
1 ve 3. sütunlar (koddaki sütun numaralarını değiştirdim sadece) arasındaki resimleri silmek için sizin daha önce paylaştığınız yukarıdaki kodu uyguladım. Makroyu çalıştırdığımda resimleri siliyor ama sonunda hata penceresi de çıkıyor. sebebi ne olabilir ve nasıl çözebilirim...
Sub ResimSil()
'Tip özelliği "Picture" olanların silinmesi
Dim s1 As Worksheet, resim As Shape, i As Integer
Set s1 = ActiveSheet
For Each resim In s1.Shapes
resim.Select
If TypeName(Selection) = "Picture" Then
Selection.Delete
i = i + 1
End If
Next
If i >= 1 Then
MsgBox i & " Adet...
Aktif olan hücre boyutuna göre resim ekler
Sub seçilen_hücreye_resim_ekle()
Dim sPicture As String, pic As Picture
Dim Target As Range
ChDir ThisWorkbook.Path
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _...
Deneyiniz.
Private Sub TextBox1_Change()
On Error Resume Next
ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".*"
If Dir(ResimDosya) = "" Then
Image1.Visible = False
Else
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & ResimDosya)
End If
End Sub
...Private Sub TextBox1_Change()
On Error Resume Next
ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".Jpg"
If Dir(ResimDosya) = "" Then
Image1.Visible = False
Else
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".Jpg")
End If
End Sub
Merhaba , deneyiniz..
Sub Test()
Dim Resim
For Each Resim In Sheets("Sayfa1").Shapes
If Resim.Name = "Picture 7" Then
Resim.Copy
ActiveSheet.Paste Destination:=Cells(Cells(Rows.Count, 10).End(3).Row + 1, 10)
'Resim.Delete
End If...
Button üzerinde sağ tıklayın properties(özellikler) de picture ile istediğiniz resmi ekleyebilirsiniz.
Ancak hem yazı hem de resim olmaz ama resme yazı ekleyip öyle eklerseniz olur.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.