- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,727
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
Merhaba,
Aşağıdaki makroda yapılacak bir değişiklik ile,
"SATIŞ" sayfasındaki A2:F14 aralığını, "YILLIK" sayfasında B1'e açıklama olarak getirmek istiyorum,
Teşekkür ederim.
Sub RESİM_EKLE()
'On Error Resume Next
Set s6 = Sheets("SATIŞ")
s6.[A2:F14].CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = s6.ChartObjects.Add(, , Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete
Set ekle = s6.[B1].Comment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub
Aşağıdaki makroda yapılacak bir değişiklik ile,
"SATIŞ" sayfasındaki A2:F14 aralığını, "YILLIK" sayfasında B1'e açıklama olarak getirmek istiyorum,
Teşekkür ederim.
Sub RESİM_EKLE()
'On Error Resume Next
Set s6 = Sheets("SATIŞ")
s6.[A2:F14].CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = s6.ChartObjects.Add(, , Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\xresimx.gif"
grafik.Delete
Set ekle = s6.[B1].Comment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\xresimx.gif"
MsgBox "Açıklama oluşturulmuştur"
End Sub
