Создание слайда из Excel через VBA

@mihey1993 · Регистрация: 07.09.2014

Студворк — интернет-сервис помощи студентам

Добрый день, Коллеги.

Подскажите пожалуйста, от чего на строке создания слайда может падать следующий код(With .Slides.AddSlide(1, pLayoutBlank)):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
With New PowerPoint.Application
    .Visible = msoTrue
    .Activate
    With .Presentations.Add
        With .PageSetup
            .SlideSize = ppSlideSizeA4Paper
            .SlideHeight = 540
            .SlideWidth = 780
        End With
        With .Slides.AddSlide(1, pLayoutBlank)
        
        End With
    End With
End With

Если делать всё через переменные и Set'ы, то все работает на ура, а вот с такой извращенской конструкцией падает при создании слайда с Run-time Error 424: Object required. Что сделать, для того чтобы код видел объект?

Аксима · Name Required/Optional Data Type Description

Здравствуйте, mihey1993,

Код падает, потому что метод AddSlide в качестве второго значения требует экземпляр класса CustomLayout...

Сообщение от MSDN

Slides.AddSlide Method (PowerPoint)

Name	Required/Optional	Data Type	Description
Index	Required	Int	The index of the slide to be added.
pCustomLayout	Required	CustomLayout	The layout of the slide.

...а вы пытаетесь вместо экземпляра указанного класса всучить ему целое число из перечисления PpSlideLayout.

Я вообще не верю, что через переменные и Set'ы у вас работает "на ура". Либо вы лжете, либо использовали не метод AddSlide, a устаревший скрытый метод Add:

Visual Basic
1
2
3
        With .Slides.Add(1, ppLayoutBlank)
            
        End With

С уважением,

Аксима

@mihey1993 · 14.10.2015, 11:58 **[ТС]**

Аксима, да, спасибо. Честно, как то не обратил внимания на этот нюанс. Написал Add, что предложило то и выбрал. Почему то был уверен, что ранее использовался именно AddSlide, а оказалось обычный Add.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@mihey1993 323 / 49 / 28 Регистрация: 07.09.2014 Сообщений: 217
	14.10.2015, 11:58 [ТС]
	Аксима, да, спасибо. Честно, как то не обратил внимания на этот нюанс. Написал Add, что предложило то и выбрал. Почему то был уверен, что ранее использовался именно AddSlide, а оказалось обычный Add. 0