Sorgu için arama sonuçları: picture

...sorunu olmuyor. Bir de aşağıdaki kodu deneyin. Option Explicit Dim Kontrol As Boolean Sub Hucreleri_Resim_Yapistir() Dim Resim As Picture If Kontrol = False Then Worksheets("Veri").Range("D7:O13").CopyPicture xlScreen, xlPicture Worksheets("Bigi").Paste...

Deneyiniz. Option Explicit Dim Kontrol As Boolean Sub Hucreleri_Resim_Yapistir() Dim Resim As Picture If Kontrol = False Then Worksheets("Veri").Range("D7:O13").CopyPicture xlScreen, xlBitmap Worksheets("Bigi").Paste Destination:=Worksheets("Bigi").Range("H8")...

...Bunu aynı sayfadan aynı sayfaya aşağıdaki kodla yapabiliyorum. Ancak diğer sayfadan resim almayı beceremedim. Sub Resim01() Dim Pic As Picture Range("BP22:CA28").CopyPicture Set Pic = ActiveSheet.Pictures.Paste Pic.Top = [R13].Top 'Yukarıdan pozisyon Pic.Left = [R13].Left 'Soldan pozisyon...

Korhan Hocam öncelikle teşekkür ederim, Makro bilgim çok zayıf öğrenmeye çalışıyorum, tanımlamayı anlayamadım. Aslında çalışma kitabı içerisinde resimden kasıt, (Metin Kutusu, hazır şekil var fotoğraf v.b. yok). Bu formülü sizden alarak kendime göre düzenledim, çokta işime yaradı ve sorunsuz...

...istediğim bir durum var. Kullandığınız değişken isimlerini VBA tarafında kullanılan ifadelerin dışında belirlemek daha doğru olacaktır. "Picture" ifadesi VBA tarafında kullanılan bir terimdir. Bu sebeple değiştirip kodu öyle denemenizi tavsiye ederim. Örneğin aşağıdaki gibi tanımlayıp kod...

....Cells.Copy .Cells.PasteSpecial xlPasteValues .Cells.Replace 0, "", xlWhole Dim Picture As Object For Each Picture In ActiveSheet.Shapes If Picture.TopLeftCell.Row >= 1 And Picture.TopLeftCell.Row <= 4 Then Picture.Delete End If Next Picture...

...almaktayım. Daha doğrusu kod ana bilgisayarda sorunsuz çalışıyor, Başka bilgisayarda bu hatayı veriyor. Makro Kodunun; bu satırında If Picture.TopLeftCell.Row >= 1 And Picture.TopLeftCell.Row <= 4 Then Picture.Delete Bu sorunu nasıl çözebilirim başka bilgisayarlarda bu sorunla...

Biraz araştırdım. Bu kodlar işinizi görür sanırım. ;) Range("A":Y1048576") alanını kendinize göre uyarlarsınız. Sub Resim() Dim Resim As Picture, Alan As Range Set Alan = Sheets("Sayfa3").Range("A1:Y1048576") For Each Resim In ActiveSheet.Pictures Sat =...

....Cells.Copy .Cells.PasteSpecial xlPasteValues .Cells.Replace 0, "", xlWhole Dim Picture As Object For Each Picture In ActiveSheet.Shapes If Picture.TopLeftCell.Row >= 1 And Picture.TopLeftCell.Row <= 4 Then Picture.Delete End If Next Picture...

Halit Hocam eski bir paylaşınız çok faydalandım. Peki bunu belli satır aralığındaki nesneleri silmekte nasıl uygularız. Halen bu forumdaysanız yardımınızı beklerim teşekkürler.

...<> "" Then For sayfa = 1 To Sheets.Count Set s2 = ThisWorkbook.Worksheets(Sheets(sayfa).Name) s2.Image1.Picture = LoadPicture("") s2.Image1.Picture = LoadPicture(Cells(1, 4)) Next sayfa Else...

...sat = Target.Row süt = Target.Column If sat = 1 And süt = 3 Then For sayfa = 1 To Sheets.Count Set s2 = ThisWorkbook.Worksheets(Sheets(sayfa).Name) s2.Image1.Picture = LoadPicture("") s2.Image1.Picture = LoadPicture(Cells(1, 4)) s2.Image1.Picture = LoadPicture(Cells(1, 4)) Next sayfa End If...

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