Получить нормальный стиль шрифта в PowerPoint

Question

Я пытаюсь проверить презентацию на наличие шрифтов в ней. Это можно сделать с помощью ActivePresentation.Fonts. Я также хочу проверить, является ли шрифт нормальным, жирным шрифтом и / или курсивом. Жирный и Курсив легко, но Нормальный нет. Например, скажем, у меня есть два текстовых поля, одно из них имеет «Hello World» на Arial Italic, а другое - на Arial Bold. Следующий код говорит мне, что у меня есть оба из них:

Sub CheckFonts()
    Dim p As Presentation: Set p = ActivePresentation
    Dim f As Font: Set f = p.Fonts(1)
    Dim italic As Boolean: italic = f.italic
    Dim bold As Boolean: bold = f.bold
    Debug.Print "Bold in use: " & bold; vbTab & "Italic in use: " & italic
End Sub

Теперь давайте предположим, что у меня есть одно из текстовых полей без курсива, но вместо этого это просто обычный шрифт Arial. Не зацикливаясь на каждом отдельном объекте шрифта во всех формах, могу ли я сказать, что это обычный шрифт (т.е. не применяется форматирование курсивом / полужирным шрифтом) из Presentation.Fonts?

Спасибо заранее.

Answer 1

Извините, это не ответ , но слишком смешно, чтобы не передать.Во время моего небольшого исследования вашей проблемы со шрифтами я наткнулся на справочную страницу MSDN для объекта шрифтов .

Очевидно, кто-то в Microsoft работает на Genigraphics или кто-то скопировал документацию из какого-то другого продукта ...

Здесь выдержка, сохраненная для вечности:

Коллекция шрифтов используется мастером Geni, чтобы определить, используется ли какой-либо из шрифтов в указанномпрезентация не будет поддерживаться, когда Genigraphics отображает слайды.Если вы просто хотите установить форматирование символов для определенного маркера или текстового диапазона, используйте свойство Font, чтобы вернуть объект Font для маркера или текстового диапазона.

Мастер Genigraphics позволяет пользователям передавать свои презентации непосредственно в Genigraphics.для конвертирования в слайды с пленкой, накладные пленки или другие специализированные медиаформаты.Для получения дополнительной информации об услугах, предоставляемых Genigraphics, посетите веб-сайт Genigraphics.Эта служба может быть недоступна за пределами США.

Какого черта этот текст делает на MSDN?: -)