Вставить имя файла импортированного изображения в качестве заголовка
8/25/2019

Следующий код хорошо работает, добавляя несколько изображений на отдельные слайды (1 к 1). Нужна помощь в включении импортированного имени файла (без пути и расширения) в текстовое поле заголовка и установите его перед изображением внизу в 25 точках, а текст должен быть белым, по центру. Мы будем очень признательны за вашу помощь.

Субимпортный запуск()

Тусклый strTemp В Виде Строки

Тусклый strPath В Виде Строки

Затемнить strFileSpec В Виде Строки

Тусклый оСлд В Виде Слайда

Тусклый оПик Как Форма

"Отредактируйте их в соответствии с:

strПуть = "S:\Documents\Traverse\KOF\DC Окрестности\"

strFileSpec = "*.формат JPG"

strTemp = Каталог(strPath и strFileSpec)

Делать, пока strTemp <> ""

Установите OSLD = Активное представление.Слайды.Добавить (активное представление.Слайды.Количество + 1, pplayout пробел)

Установите oPic = оСлд.Формы.Добавить изображение(имя файла:=strPath и strTemp, _

Ссылка на файл:=msoFalse, _

Сохранить с документом:=msotrue, _

Слева:=0, _

Вершина:=0, _

Ширина:=-1, _

Высота:=-1)

' ширина/высота -1 указывает PPT импортировать изображение в его "естественном" размере

С помощью oPic

.Локаспектрация = msofalse

.Высота = активное представление.Настройка страницы.Высота слайда

.Ширина = активное представление.Настройка страницы.Ширина слайда

Заканчивать С

"Возьмите следующий файл, соответствующий спецификации, и повторите обход

strTemp = Реж

Петля

Конечная Подстанция

Правильный Ответ

Cathy Wintheiser
12/24/2021

Попробуй это сделать. На пустом макете слайда нет заголовка, поэтому я изменил код, чтобы дать вам макет только заголовка, чтобы у нас был заполнитель заголовка для работы. Еще одним преимуществом этого является то, что нет необходимости в коде для установки положения/ цвета/центрирования/ размера текста заголовка, в котором будет содержаться имя изображения; просто измените заполнитель заголовка в макете только для заголовка, чтобы он соответствовал. Итак, вот и все: Sub Importabunch() Тусклый strTemp Как строка, Тусклый strPath Как строка, Тусклый strFileSpec Как Строка, Тусклый OLD Как Слайд, Тусклый OPIC Как Форма, Тусклый strFileName Как строка, Тусклый ОШ Как Форма" Отредактируйте их в соответствии с: strPath = "S:\Documents\Traverse\KOF\DC Окрестности\" strFileSpec = "*.jpg" strTemp = Dir(strPath & strFileSpec) Делать, пока strTemp <> "" Установите OSLD = Активное представление.Слайды.Добавить (активное представление.Слайды.Count + 1, только pplayouttitle) Установить opic = ОСЛД.Формы.Addpicture(Имя файла:=strPath & strTemp, _ Linktofile:=msoFalse, _ SaveWithDocument:=msotrue, _ Слева:=0, _ Вверху:=0, _ Ширина: =-1, _ Высота:=-1) ' ширина/высота -1 указывает PPT импортировать изображение в его "естественном" размере с помощью OPIC.Локаспектрация = msofalse .Высота = Активное представление.Настройка страницы.Высота слайда.Ширина = активное представление.Страница setup.Ширина слайда Заканчивается strFileName = Left$(strTemp, INSTR(UCase(strTemp), ".JPG") - 1) Установите ОШ = ОСЛД.Формы.Заголовок С ОШ.Текстовым Фреймом.Текстовый диапазон.Текст = Имя файла STR.Zorder (msoBringToFront) Заканчивается словами "Получить следующий файл, соответствующий спецификации, и снова выполнить цикл strTemp = Конец цикла Dir".

Помогло людям

Похожие вопросы