With xlWorkSheet1.PageSetup.RightHeaderPicture
.Filename = My.Resources.Vermaat_logo_web
Public Sub InsertPicture()
With xlWorkSheet1.PageSetup.RightHeaderPicture
.Filename = My.Resources.Vermaat_logo_web.ToString
.Height = 50
.Width = 75
.ColorType = Microsoft.Office.Core.MsoPictureColorType.msoPictureAutomatic
.CropBottom = 0
.CropLeft = 0
.CropRight = 0
.CropTop = 0
End With
' Enable the image to show up in the left header.
xlWorkSheet1.PageSetup.RightHeader = "&G"
End Sub