Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Excel to Power Point изменить размер изображения VBA, Как изменить размер изображения при копирования из Excel в PPT?
 
Добрый день.

Есть макрос, который  копирует таблицу как изображение из Екселя и переносит его на слайд в ПП.

Всё работает отлично, но есть одно НО. я никак не могу заставить вставлять изображение определённого размера.

Дело в том, что Диапазон таблицы может быть от 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
Изменено: zhmerin - 18 Сен 2018 16:14:43
Страницы: 1
Читают тему (гостей: 1)
Наверх