Sorgu için arama sonuçları: picture

  1. 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
  2. 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...
  3. 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.
  4. 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", _
  5. 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", _ ...
  6. 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 &...
  7. 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 &...
  8. 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...
  9. 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 &...
  10. 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" &...
  11. 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...
  12. 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...
  13. 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)...
  14. H

    CommontButton' Resim Getirme

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

    CommontButton' Resim Getirme

    Bu arada commandbutton'un picture/resim özelliği olduğunu bilmiyordum, sayın faye_efsane'nin cevabıyla öğrenmiş oldum.
  16. 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 =...
  17. A

    Soru Selenium basic ile webden combobox içindeki seçili değeri nasıl alabilirim?

    ...& i) Range("A" & i).Select resimyolu = Tablolar(i).FindElementByTag("img").Attribute("src") ActiveSheet.Pictures.Insert(resimyolu).Select With Selection .ShapeRange.LockAspectRatio = msoFalse .Top = Range("A" & i).Top +...
  18. A

    Soru Selenium basic ile webden combobox içindeki seçili değeri nasıl alabilirim?

    ...& i) Range("A" & i).Select resimyolu = Tablolar(i).FindElementByTag("img").Attribute("src") ActiveSheet.Pictures.Insert(resimyolu).Select With Selection .ShapeRange.LockAspectRatio = msoFalse .Top = Range("A" & i).Top +...
  19. vivident

    Sharepointte bulunan resmi image yüklemek

    Merhaba Sharepoint altında bulunan resimlerim var. Bu resimleri excel sayfasında bulunan Image1.Picture yüklemek istiyorum. Sharepointte geçmeden önce resimler C: altında idi. Linki yazdığımda direk resim yükleniyordu. Sharepointte geçince linkleri değiştirsemde yüklenmiyor. Varmıdır bir yolu...
  20. M

    İmage1 nesnesini yazdırma

    Teşekkürler Korhan Hocam bunuda Alternatif olarak adım
Üst