Sorgu için arama sonuçları: picture

...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...

Teşekkürler oldu

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...

Çok teşekkür ederim. Elinize sağlık.

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", _...

çok teşekkür ederim.

çok teşekkür ederim.

...Error Resume Next ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpg" If Dir(ResimDosya) <> "" Then Image1.Visible = True Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpg") exit sub end if ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 &...

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...

...xlFreeFloating .Width = Application.InchesToPoints(x / 16) .Height = Application.InchesToPoints(y / 16) .CopyPicture xlScreen, xlPicture ActiveSheet.Paste x2 = (Selection.Width - .Width) / 3 y2 = (Selection.Height - .Height) /...

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.

Haluk Bey teşekkürler... UserForm1.Picture = LoadPicture("") Me.Repaint Bu şekilde mi olacak

Çok Teşekkürler Haluk Bey.

UserForm1.Picture = LoadPicture("") .