כיצד להעתיק באופן אוטומטי מ - Excel ל - PowerPoint באמצעות מאקרו VBA

שלב 1

לבצע את Excel, לכתוב "Alan" ב A1, "דניאל" ב A2, "Kitzia" ב A3, "אוסקר" ב A4 ו "Yarexli" ב A5. הקש "Ctrl" ו- "S" כדי לשמור את חוברת העבודה "C: \" כמו "ExcelFile.xlsx". סגור את Excel

שלב 2

הפעל PowerPoint, לחץ על הכרטיסייה "מפתח" ולחץ על "מאקרו" כדי להפעיל את תיבת הדו שיח מאקרו. כתוב "copyFromExcel" תחת "שם מאקרו" ולחץ על "צור" כפתור. לחץ על תפריט "כלים" ולחץ על "העדפות" כדי לבצע את תיבת הדו שיח "הפניות". גלול למטה ולבדוק את "Microsoft Excel Object Library" ולחץ על "אישור".

שלב 3

העתק והדבק את הפריטים הבאים כדי ליצור את המשתנים שבהם תשתמש להעתקת הנתונים מ- Excel:

עמעם sourceXL כמו Excel.Application ענן sourcebook כמו Excel.Workbook עמום sourceSheet כמו Excel.Worksheet עמום dataReadArray (10) כמו מחרוזת עמעום myPress שלי כמו מצגת עמום newSlide כמו שקופית

שלב 4

התאם את הערכים של משתני אובייקט:

הגדר sourceXL = Excel.Application הגדר sourceBook = sourceXL.Workbooks.Open ("G: \ ExcelFile.xlsx") הגדר sourceSheet = sourceBook.Sheets (1) הגדר myPres = ActivePresentation קבע newSlide = myPres.Slides.Add (אינדקס: = myPres .Slides.Count + 1, פריסה: = ppLayoutText)

שלב 5

קרא את הנתונים בקובץ Excel ושמור אותו בקטור שרשרת:

ערך (1) = מקור נתונים (1) = מקור נתונים ("A2"). ("A3") () "(" A3 "). בחר dataReadArray (4) = sourceSheet.Range ("A5").

שלב 6

הוסף את הנתונים מ וקטור שרשרת לשקופית החדשה במצגת הנוכחית שלך:

NewSlide.Shapes (1) .TextFrame.TextRange = "נתונים שהועתקו מ- Excel" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) & vbNewLine

שלב 7

סגור את חוברת העבודה:

מקור

שלב 8

עבור לחלון PowerPoint ולחץ על "פקודות מאקרו". לחץ על "הפעלה" כדי להפעיל את מאקרו "copyFromExcel" ולהוסיף שקופית חדשה עם נתונים שהועתקו מקובץ Excel שנוצר בשלב 1.