- Code: Select all
Dim p1 As New Bitmap(image.FromFile(tempfolder & "\logo\logo1.jpg"))
Dim picture As Fields.DocPicture = document.Sections(0).Paragraphs(0).AppendPicture(p1)
Dim pWidth = p1.Width
Dim pHeight = p1.Height
Dim newWidth = 200
Dim newHeight = newWidth / pWidth
picture.Width = newWidth
picture.Height = pHeight * newHeight