Sorgu için arama sonuçları: picture

Merhaba, exceldeki bir grafiği resim olarak kopyalamak için aşağıdaki kodu yazdım, bu hatayı alma sebebim nedir? Teşekkürler.. Sub pastespecial1() ActiveChart.ChartArea.copy Range("H2").Select ActiveSheet.pastespecial Format:="Picture (PNG)", Link:=False, _ DisplayAsIcon:=False End Sub

Desteğiniz için teşekkür ederim ancak kullanmış olduğum yöntem aynısı inanılmaz kasıyor sayfa sayısı ve logo sayısı fazla olduğu için 400 sayfada 2 şer tane logo var.

Veri doğrulama ile bir deneyin. https://trumpexcel.com/picture-lookup/ açıklamaların altındaki Download butonu ile örnek dosyayı indirmek mümkün.

...yani Sayfa1 'deki tablodaki değerler değiştikçe aynı anda UserForm'daki grafik'de değişsin. Bu mümkünmü ? bazı grafik çizme makrolarını inceledim Picture olarak dışarıya kaydedip onu userform'a alıyor onu istemiyorum, bütün işlemler dosya içinde olmalı, bu konuda yardımcı olursanız sevinirim.

Çözdüm arkadaşlar PICTURE SIZE MODE "1" olacakmış.

...Application.ScreenUpdating = False Application.EnableEvents = False Dim fso As Object, Evn As Object, renk As Byte, mypicture As Shape Set Evn = CreateObject("Scripting.Dictionary") Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next For Each i In...

Hocam, bunu fotoğraf seç butonuna mı bağlayacağım.

Hocam ilk bölüm resim adı ve bulunduğu klasör mü. Yani ResimAdi = ....... Resim klasörü = "C\....." gibi

...= "images\" DosyaYolu = NavigateFromWorkBookPath () 'Resim yolunu alma TamDosyaYolu = DosyaYolu & ResimKlasoru & ResimAdi 'resmi pictureboxa yükleme If Dir(TamDosyaYolu) <> "" Then Image1.Picture = LoadPicture(TamDosyaYolu) Image1.PictureSizeMode = 3 Else Msgbox "Resim dosyası yüklenemedi -...

...etmiyor, neden olduğu konusunda fazla uğraşamadım. Private Sub CommandButton1_Click() 'Siteden barkot resmi aktarıyor. ActiveSheet.Shapes.AddPicture "https://barcode.tec-it.com/barcode.ashx?data=" & TextBox1.Value & "&code=Code128&dpi=96&dataseparator=", msoFalse, msoTrue, 50, 50, 100, 50 '...

Aynen dediğiniz gibi oldu hocam 😊 kapatıp açılınca resimler kayboldu. Aslında dosya masaüstünde duruyor ama. Yine de kayboldu. Yolu yokmu. En azından yazdır sayfasından kaybolmuyor.

...If dosya = False Then ' eğer vazgeçe basarsanız MsgBox "Dosya seçme işleminden vazgeçildi" Exit Sub Else Image2.Picture = LoadPicture("") Label18.Caption = "" Label18.Caption = yol & dosya & uzanti Image2.Picture = LoadPicture(yol & dosya &...

Image1.Picture = LoadPicture(fname1) hocam bu satırda hata veriyor. (debug)

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

Hocam çok sağ olun. Şimdi oldu . Hakkınızı helal edin. Emeğinize bilginize sağlık. Hayırlı günler ve Cumalar diliyorum.

...Daha sonra yerleştirdiğiniz Image nesnesini bir kere tıklayarak seçiniz ve bu Image nesnesine bağlı olarak açılan Properties penceresinden Picture özelliğini bulup hemen yan tarafındaki (none) yazan yeri tıklayıp açılan pencereden daha önce ekleyip kaydettiğiniz paint dosyasının yerini...

Hocam userforma eklemek istiyorum. Orada sabit kalıyor. Resim seçilmiyor.

commandbutton öğesi seçiliylen sağ tarafta properties menusu çıkar. Picture alanından resminizi seçin Picture Position seçeneklerinden değişiklik yapın, image ın değiştiğini görürsünüz İyi çalışmalar

Hocam paint dosyasına ekleme yapamadım o nasıl oluyor.

Merhaba Eklenecek resmi Paint dosyasına kaydediniz. Sonra UserForm'a Image nesnesi ekleyip Image'nin picture özelliğine kaydettiğiniz paint dosyasını yapıştırınız. İşlem tamam. Örnek Dosya Ek' tedir. Selamlar...