Sorgu için arama sonuçları: picture

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

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

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

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

Alternatif; Private Sub CommandButton2_Click() Dim Grafik As Object Set Grafik = Me.Image1.Picture If Not Grafik Is Nothing Then Sheets("GRAFIK").Range("Yazdırma_Alanı").PrintOut End Sub

Resimlereekle makronuz: Sub Resimlerekle() sat1 = 6 sat2 = 13 sut1 = 18 sut2 = 24 Dim Picturer As Object Set Adres = Range(Cells(sat1, sut1).Address, Cells(sat2, sut2).Address) Dim Picture As Object For Each Picture In ActiveSheet.Shapes If Not Intersect(Range(Picture.TopLeftCell.Address & ":"...

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