Hello
Here is a code I wrote for checking if font is embedded. In my presentation I have 4 fonts.
Problem is that this code checks fonts 1-3 and no 0 position. How to use Fonts.count to start from 0. Something similar to array and .Length. When I change i = 0 i get Run-time error '424' Object required. I read it has something to do with VB4.Sub ListDocumentProperties() Dim i As Integer For i = 1 To ActivePresentation.Fonts.count - 1 If ActivePresentation.Fonts(i).Name = "Arial" Then MsgBox "Font is embedded" Else MsgBox "Font is not embedded" End If Next i End Sub