VBA لإدراج مخطط في شريحة باور بوينت

Question

وفيما يلي الإجراءات التي تستخدم لسحب المخططات في باور بوينت من جداول البيانات إكسل. ولكن الشيء الوحيد الذي لا يمكن معرفة هو كيفية إدراج صورة في "وجوه" بدلا من مجرد صقه على شاشة ال. (أي إذا فعلت ppLayoutFourObjects، وأرسلت أربع الرسوم البيانية لهذه الشريحة، قبل أن يضيف آخر، ولست بحاجة لمعرفة كيفية لصق المخطط في كل مستطيل المعين هو مبين من اختيار 4 الأجسام). وأنا أعلم أن أول واحد ويبدو أن تكون دائما المستطيل خمسة، لا أستطيع الحصول على حق التعليمات البرمجية. الرجاء المساعدة.  هذا هو كل مكتب 2003.

sub xls2ppt()
'I use this to pull charts into ppt from excel   
Dim xlApp As Object
Dim xlWrkBook As Object
Dim lCurrSlide As Long
Set xlApp = CreateObject("Excel.Application")
' Open the Excel workbook
Set xlWrkBook = xlApp.Workbooks.Open("X:\Users\Admin\Desktop\Budget Overview.xls")
' Copy picture of the 1st chart object onto the clipboard
xlWrkBook.Worksheets(2).ChartObjects(1).CopyPicture
' Get the slide number
lCurrSlide = ActiveWindow.Selection.SlideRange.SlideNumber
' Paste the picture onto the PowerPoint slide.
ActivePresentation.Slides(lCurrSlide).Shapes.Paste
' Close the open workbook without saving changes
xlWrkBook.Close (False)
xlApp.Quit
Set xlApp = Nothing
Set xlWrkBook = Nothing
End Sub

وشكرا على اي مساعدة. VBA لبرنامج PowerPoint هي لغتي الأضعف، ولكن أنا حقا في حاجة لاستلامه للعمل! شكرا لكم أيها الرجال!

Answer 1

وAFAIK لا يمكنك لصق مخطط "إلى كائن" في PowerPoint، حتى من خلال واجهة المستخدم. في Word، يمكنك لصق في مربع نص أو في خلية جدول، ولكن ليس في PowerPoint.

ما عليك القيام به بدلا من ذلك هو موقف 4 المخططات لصق بحيث انهم الحجم الصحيح والموقف - وهذا هو السهل بما فيه الكفاية للقيام ...

Set oSlide = ActivePresentation.Slides(lCurrSlide)
Set oShape = oSlide.Shapes.Paste
oShape.Top = 10
oShape.Left = 10
oShape.Width = 100
oShape.Height = 100