Как получить недостающие сведения о шрифте в документе приложения Powerpoint, используя VB.net? - PullRequest
Новая
       12

Как получить недостающие сведения о шрифте в документе приложения Powerpoint, используя VB.net?

0 голосов
/ 19 сентября 2019

Я попытался с помощью приведенных ниже кодов, чтобы получить недостающие детали шрифта в vb.net.Но выдается какая-то ошибка, такая как «System.Runtime.InteropServices.COMException:« Исключение из HRESULT: 0x800A01A8 »».Поэтому, пожалуйста, предложите.

Dim oPP в качестве значения Dim приложения в виде презентации oPP = GetObject (, "PowerPoint.Application") значение = oPP.ActivePresentation 

    For i As Integer = 0 To value.Fonts.Count - 1
        Dim f1 As Font = value.Fonts(i)
        If f1.Embedded = True Then
            MsgBox(value.Fonts(i).Name.ToString & " Font is embedded.", MsgBoxStyle.SystemModal)
        End If
    Next
...