Как автоматично да копирайте данни от Excel в PowerPoint с VBA макрос

Ако искате бързо да прехвърлите данни от работна книга на Microsoft Excel към презентация в Microsoft PowerPoint, най‑удобният начин е да използвате макрос, написан на Visual Basic for Applications (VBA). VBA позволява автоматизиране на задачи в Office приложения, а макросът съхранява набор от инструкции, които се изпълняват с едно натискане.

Стъпка 1 – Подготовка на Excel

Отворете Excel и въведете следните стойности:

• A1 – Alan
• A2 – Daniel
• A3 – Kitzia
• A4 – Oscar
• A5 – Yarexli

Запишете файла като ExcelFile.xlsx в директория C:\ (или друг път по ваш избор) и затворете Excel.

Стъпка 2 – Създаване на макрос в PowerPoint

Отворете PowerPoint, отидете в раздела Developer и натиснете Macros. Въведете име copyFromExcel и кликнете Create.

В отворения редактор изберете Tools → References, намерете и отметнете Microsoft Excel … Object Library и потвърдете с OK.

Стъпка 3 – Деклариране на променливи

Копирайте и поставете следния код, който дефинира обектите, необходими за достъп до Excel и PowerPoint:

Dim sourceXL As Excel.Application
Dim sourceBook As Excel.Workbook
Dim sourceSheet As Excel.Worksheet
Dim dataReadArray(4) As String
Dim myPres As Presentation
Dim newSlide As Slide

Стъпка 4 – Инициализиране на обектите

Настройте променливите, като отворите Excel файла и създадете нов слайд в текущата презентация:

Set sourceXL = New Excel.Application
Set sourceBook = sourceXL.Workbooks.Open("C:\\ExcelFile.xlsx")
Set sourceSheet = sourceBook.Sheets(1)

Set myPres = ActivePresentation
Set newSlide = myPres.Slides.Add(Index:=myPres.Slides.Count + 1, Layout:=ppLayoutText)

Стъпка 5 – Четене на данните от Excel

Прочетете стойностите от колоната A и ги съхранете в масив:

dataReadArray(0) = sourceSheet.Range("A1").Value
dataReadArray(1) = sourceSheet.Range("A2").Value
dataReadArray(2) = sourceSheet.Range("A3").Value
dataReadArray(3) = sourceSheet.Range("A4").Value
dataReadArray(4) = sourceSheet.Range("A5").Value

Стъпка 6 – Поставяне на данните в новия слайд

Запълнете текстовите полета на новия слайд със заглавие и прочетените стойности:

newSlide.Shapes(1).TextFrame.TextRange.Text = "Данни, копирани от Excel"
newSlide.Shapes(2).TextFrame.TextRange.Text = _
    dataReadArray(0) & vbCrLf & _
    dataReadArray(1) & vbCrLf & _
    dataReadArray(2) & vbCrLf & _
    dataReadArray(3) & vbCrLf & _
    dataReadArray(4)

Стъпка 7 – Завършване

Затворете работната книга и стартирайте макроса:

sourceBook.Close SaveChanges:=False
sourceXL.Quit

Върнете се в PowerPoint, отворете диалоговия прозорец Macros, изберете copyFromExcel и натиснете Run. Ще се създаде нов слайд, съдържащ данните от Excel.

Този макрос може да бъде разширен, за да копира повече колони, форматира текста или да създава множество слайдове автоматично.