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...
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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.