I know that my english can be better. Please rate my work and not my lack in linguistic skills!

If you find any kind of ownership issue, or you think some content is your property. Please be so kind and contact me, i will remove or solve it ASAP.

You like my free Uploads and want to support me, than please donate here:

If objWordApp.Selection.Find.Execute(FindText:="[GHSSym3]") Then

 

ObjPicture = objWordDoc.InlineShapes.AddPicture(GefStoff.GHSSym3, , , objWordDoc.Bookmarks("\Sel").Range)

 

objWordApp.Selection.Find.Execute(FindText:="[GHSSym3]", ReplaceWith:="")

 

With ObjPicture

 

'.ConvertToShape()

 

.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue

 

.Width = 46

 

End With

 

End If