Sorgu için arama sonuçları: picture

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("") .

2019 versiyonundan kaynaklı olabilir Halit hocam her şey için teşekkürler iyi akşamlar.

Kod ofis 2003 -2007-2016 da çalışıyor. Private Sub CommandButton1_Click() Dim Picture As Object For Each Picture In ActiveSheet.Shapes If TypeName(Picture.OLEFormat.Object) = "OLEObject" Then If TypeName(Picture.OLEFormat.Object.Object) = "OptionButton" Then If...

Halit hocam ilginize teşekkürler yalnız ekte hata mesajını alıyorum

kod: Private Sub CommandButton1_Click() Dim Picture As Object For Each Picture In ActiveSheet.Shapes say = say + 1 Cells(say, 1) = Picture.Name If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object) = "OptionButton" Then MsgBox...

Yardımınız ve ilginiz için çok teşekkür ederim kod tam işimi görmedi