Добрый день.
Есть макрос, который копирует таблицу как изображение из Екселя и переносит его на слайд в ПП.
Всё работает отлично, но есть одно НО. я никак не могу заставить вставлять изображение определённого размера.
Дело в том, что Диапазон таблицы может быть от 10 до 40 строк.
Я хочу, чтоб при вставке в ПП. Изображение растягивалось по всему слайду (размер слайда 16:9)
Перерыл уже все форумы, нигде ничего не нашёл. последняя надежда на Вас.
Код:
Есть макрос, который копирует таблицу как изображение из Екселя и переносит его на слайд в ПП.
Всё работает отлично, но есть одно НО. я никак не могу заставить вставлять изображение определённого размера.
Дело в том, что Диапазон таблицы может быть от 10 до 40 строк.
Я хочу, чтоб при вставке в ПП. Изображение растягивалось по всему слайду (размер слайда 16:9)
Перерыл уже все форумы, нигде ничего не нашёл. последняя надежда на Вас.
Код:
| Код |
|---|
Sub aaaextoppt()
Dim PP As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim i As Integer
Sheets("BBX day").Select
Set r = [Q22]
Set PP = New PowerPoint.Application
Set PPPres = PP.Presentations.Item("C:\адрес\адрес\адрес\Презентация Microsoft PowerPoint (2).pptm")
PP.Visible = True
ActiveSheet.Range(r).CopyPicture
Application.Wait (Now + TimeValue("0:00:1"))
Set PPSlide = PPPres.Slides(1)
On Error Resume Next
Set PPShape = PPSlide.Shapes(1)
PPSlide.Select
PPShape.Delete
PPSlide.Shapes.Paste
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, msoTrue
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue
Set PPSlide = Nothing
Set PPPres = Nothing
Set PP = Nothing
End Sub
|
Изменено: - 18.09.2018 16:14:43
