This train of thought has led me to a slightly different question,
is it possible to write a VBA code to check to see if a font is available on that user's computer, and if not then go to a subsequent font, and if that's unavailable then a subsequent font after that?
Like in this code, if Lakki Reddy wasn't available could I have it use a substitute font?
Sub WriteTextStudentName(osh As Shape)
Dim sTemp As String
sTemp = osh.TextFrame.TextRange.Text
sTemp = InputBox("Enter new text (or just a space to delete the text", "Edit text", sTemp)
With osh
.TextFrame2.WordWrap = True
.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
.TextFrame.TextRange.Font.Name = "Lakki Reddy (Body)"
.TextFrame.TextRange.Font.Size = 115
' If there's any text, apply it to the shape
' To remove text from the shape, enter just a space
If Len(sTemp) > 0 Then
osh.TextFrame.TextRange.Text = sTemp
End If
End With
' refresh the slide
SlideShowWindows(1).View.GotoSlide ( _
SlideShowWindows(1).View.Slide.SlideIndex)
End Sub
Thank you for your time