Grafik kopyala yapıstır.

[Kemal Demir]

Merhaba arkadaslar,

Exceldeki ,grafiği kopyalıyorum ,C:\ dizinin altındaki DENEME.ppt dosyamı açtırıyorum.

Application.SendKeys ("%ep")

Yukarıdaki kod ile veriyi yapıstırıyorum, sorun'un başladıgı yer ise dosya yasıtırıldıgında excel'in makro etkinleştirme sayfası cıkmakta.

envai çeşit SendKey,Onkey uygulamaları denedim ama tutmadı.

Nasıl ilerleyebilirim?

Dim MyPath As String
MyPath = Application.Path
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Set PPT = New PowerPoint.Application
PPT.Visible = True
PPT.Presentations.Open "c:\DENEME.ppt"
'Alt Satırda olabilir
'Application.SendKeys ("^v")
Application.SendKeys ("%ep")
'Application.SendKeys ("{ENTER}")
'Application.SendKeys ("{ENTER}")
'pEK oLMADI aMA
'Application.OnKey "+^{LEFT}"
'Application.OnKey "{ENTER}"
'Application.OnKey "{ENTER}"
'Chr (13) + Chr(10)
''''''''''''''''''''''''''''