Inserting Icons into TextBox

gmayor · #2 11-04-2019, 10:01 PM

Insert a shape rather than a text box

Code:

Sub SetWindowUp()

Dim winMain As Window
Dim Box As Shape
Dim x As Double, y As Double
Dim sPath As String
    sPath = Environ("USERPROFILE") & Chr(92) & "Pictures\"
    For Each winMain In Windows
        winMain.View.Zoom.Percentage = 100
    Next winMain
    Application.ActiveWindow.View.Type = WdViewType.wdPrintView

    x = Selection.Information(wdHorizontalPositionRelativeToPage)
    y = Selection.Information(wdVerticalPositionRelativeToPage)

    Set Box = ActiveDocument.Shapes.AddPicture _
              (FileName:=sPath & "\wheelchair access.png", _
               LinkToFile:=False, _
               SaveWithDocument:=True, _
               Left:=x, Top:=y, Width:=50, Height:=50)
End Sub

The file path in your original effort does not contain an insertable graphic, however the attached is an insertable version of that image, which you should save in your Pictures folder for it to work with the code above.

Personally I would probably just insert an inline shape at the cursor

Code:

Sub InsertIcon()
Dim winMain As Window
Dim Box As InlineShape
Dim x As Double, y As Double
Dim sPath As String
    sPath = Environ("USERPROFILE") & Chr(92) & "Pictures\"
    Application.ActiveWindow.View.Type = WdViewType.wdPrintView

    Set Box = Selection.Range.InlineShapes.AddPicture _
              (FileName:=sPath & "\wheelchair access.png", _
               LinkToFile:=False, _
               SaveWithDocument:=True)
    With Box
        .Width = 50
        .Height = 50
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
syntax for inserting blank line before inserting table and after a line or paragraph	SamDsouza	Word VBA	8	08-04-2019 11:10 PM
Display result in textbox based on the input of another textbox	scarymovie	Word VBA	5	05-16-2012 07:05 PM
What Do The Different Calendar Icons Mean?	mysticglow3	Outlook	1	05-14-2012 09:42 PM
2 printer icons	Topazdan	Office	3	05-18-2010 01:35 AM
Icons for different folders	pengyou	Windows	3	12-09-2009 09:21 AM