Microsoft Word/Run-time error '4693'
Joseph Davoli wrote at 2015-01-28 16:49:17
"On Error Resume Next" is not often a good idea. A more rigorous approach is:
'Check to see if this InlineShape is NOT a horizontal line (Type = 6).
If .Type <> 6 Then
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End If 'End checking to see if this InlineShape is NOT a horizontal line.
About Microsoft Word
This topic answers questions related to Microsoft Word stand-alone or Microsoft Office Word including Word 2003, Word 2007, Office 2000, and Office XP. You can get Word help on formatting text, tables, tabs, fonts, styles, general Word layouts, bullets, headings, and outlines, using templates, toolbar modifications, and using Track Changes. You may also find tips on linking Word and Excel embedded objects including charts. This site does not provide a general Word tutorial nor the basics of using a word processor. It provides specific answers to using Microsoft Word only. If you do not see your Word question answered in this area then please ask a Word question here