Sorgu için arama sonuçları: picture

  1. Korhan Ayhan

    Bağlantılı resim görüntülenemiyor..." hatası

    Forumda picture yazarak arama yaparsanız onlarca örnek koda erişebilirsiniz.
  2. Feylosof

    Bağlantılı resim görüntülenemiyor..." hatası

    Dim Resim As OLEObject Dim Adres As Range yer = ThisWorkbook.Path & "\Resimler\" & "\" & Range("J" & ActiveCell) & ".jpg" SavePicture Image1.Picture, yer sat = ActiveCell sut = "J" Set Adres = Range(Cells(sat + 1, sut).Address) Dim Picture As Object For Each Picture In ActiveSheet.Shapes 'If...
  3. Korhan Ayhan

    Tckimlik numaralarına göre qrcode resmini hücreye çektirme hk.

    Merhaba, Forumda bolca işlenen konulardan birisidir. Arama yapmalısınız. https://www.excel.web.tr/search/210576/?q=picture&o=date
  4. Feylosof

    Bağlantılı resim görüntülenemiyor..." hatası

    ...ediyorum. Dim Resim As OLEObject Dim Adres As Range yer = ThisWorkbook.Path & "\Resimler\" & "\" & Range("J" & ActiveCell) & ".jpg" SavePicture Image1.Picture, yer sat = ActiveCell sut = "J" Set Adres = Range(Cells(sat + 1, sut).Address) Dim Picture As Object For Each Picture In...
  5. halit3

    sayfadan userforma resim ekleme

    ...ekle aşağıdaki kodu çalıştır. Private Sub CommandButton1_Click() Dim myClp As clipboard Set myClp = CreateObject("clipbrd.clipboard") myClp.Clear ActiveWindow.RangeSelection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap Image1.Picture = myClp.GetData MsgBox "İŞLEM TAMAM""" End Sub
  6. A

    sayfadan userforma resim ekleme

    ..."Geçerli hücre seçimi yapmadınız", vbInformation, "Uyarı" Exit Sub End If s1.DrawingObjects.Delete Range(baslangic & ":" & son).Copy s1.Pictures.Paste Application.CutCopyMode = False Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" Set XL_Chart = Charts.Add For...
  7. 1Al2Ver

    düşey ara, indis, kaçıncı ve resim bulma

    Merhaba, Kod satırını aşağıdaki gibi düzenler misiniz ? sPicture = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import") Kolay gelsin.
  8. C

    düşey ara, indis, kaçıncı ve resim bulma

    gönderdiğiniz kod hata veriyor. hata verdiği satır şurası ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
  9. 1Al2Ver

    düşey ara, indis, kaçıncı ve resim bulma

    ...vb. eklenecek resimi seçin, Seçilen resim, önceden seçtiğiniz hücreye (örneğin B2), tam olarak gelecektir. KOD ; Sub InsertPicture() Dim sPicture As String, pic As Picture sPicture = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _ ...
  10. U

    İstenen Bir Hücreye Klasörden Resim Getirmek

    ...= Resim_Adres.Top .Left = Resim_Adres.Left .Height = Resim_Adres.Height .Width = Resim_Adres.Width .Object.PictureSizeMode = fmPictureSizeModeStretch End With If Dir(Yol & Resim_Adı) <> "" Then Yeni_Resim.Object.Picture = LoadPicture(Yol &...
  11. U

    İstenen Bir Hücreye Klasörden Resim Getirmek

    ...= Resim_Adres.Top .Left = Resim_Adres.Left .Height = Resim_Adres.Height .Width = Resim_Adres.Width .Object.PictureSizeMode = fmPictureSizeModeStretch End With If Dir(Yol & Resim_Adı) <> "" Then Yeni_Resim.Object.Picture = LoadPicture(Yol &...
  12. M

    Check Box İle Seçili Olan Sütunları Almak

    ...Exit For End If Next Dim SütunAdı As String Set s1 = Sheets("BİLGİ SEÇME") Set s2 = Sheets("BİLGİ SEÇME SAYFASI") Dim Picture As Object For Each Picture In s1.Shapes If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then If...
  13. U

    İstenen Bir Hücreye Klasörden Resim Getirmek

    ...= Resim_Adres.Top .Left = Resim_Adres.Left .Height = Resim_Adres.Height .Width = Resim_Adres.Width .Object.PictureSizeMode = fmPictureSizeModeStretch End With If Dir(Yol & Resim_Adı) <> "" Then Yeni_Resim.Object.Picture = LoadPicture(Yol &...
  14. 5

    Fotoğraf boyutlandırma hakkında

    Cevabımı buldum dostlar gün gelir birine lazım olursa eğer Private Sub CommandButton1_Click() Dim res As Picture Dim x As Long Dim ps As Long ps = Range("g20000").End(xlUp).Row For x = 3 To ps On Error Resume Next Range("A" & x).Select Set res = Me.Pictures.Insert(Range("E" &...
  15. 5

    Fotoğraf boyutlandırma hakkında

    Private Sub CommandButton1_Click() Dim res As Picture Dim x As Long Dim ps As Long ps = Range("g20000").End(xlUp).Row For x = 3 To ps On Error Resume Next Range("A" & x).Select Set res = Me.Pictures.Insert(Range("E" & x).Value) res.Width = 10 res.Height = 272 Next...
  16. C

    Makro İle Logo Değiştirmek

    Merhaba, Çalışma kitabında ki logoları başka logo ile değiştirmek istiyorum. Kodu butona atayacam, değiştir dediğimde; picture 3 , pc'den belirttiğim yol üzerinden yeni resim ile değişecek ama bunu tüm çalışma kitabında uygulayacak. Not: Picture 3 sabit, Pc den çekilecek yeni logonun yolu...
  17. E

    klasörden resim seçme

    ...eklemeleri yapabilirsiniz If Dosya = False Then ' eğer vazgeçe basarsanız MsgBox "Dosya seçme işleminden vazgeçildi", , "excel.web.tr" Exit Sub Else Image1.Picture = LoadPicture("") 'Image1.Picture = LoadPicture(Sheets("bilgi").Cells(3, "j").Value)...
  18. H

    CommontButton' Resim Getirme

    Çok Teşekkür ediyorum kardeş, bir deneyeyim ,Sağlıklı günler dileği ile Selamlar.
  19. YUSUF44

    CommontButton' Resim Getirme

    Bu arada commandbutton'un picture/resim özelliği olduğunu bilmiyordum, sayın faye_efsane'nin cevabıyla öğrenmiş oldum.
  20. A

    CommontButton' Resim Getirme

    ...İlgili kodlar için örnek, CommandButton1 'i kullandığınız buton ismi ile değiştiriniz. If CbFaturaTuru.ListIndex < 0 Then CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\incele.jpg") CommandButton1.PicturePosition =...
Üst