Visual Basic

99Freddo wrote:

Anchor:=ActiveDocument.Paragraphs(1).Range

Anchor := Selection.Paragraphs(1).Range

Sub zPic()
'
' zPic Place Picture top of paragraoh 1 (at Cursor)
'
Dim openDialog As Office.FileDialog
Dim shp As Shape
Dim ils As InlineShape

Set openDialog = Application.FileDialog(msoFileDialogFilePicker)
  openDialog.Filters.Clear
  openDialog.Filters.Add "JPEG Files", "*.jpg"
  openDialog.Filters.Add "Gif Files", "*.gif"
  openDialog.Filters.Add "PNG Files", "*.png"
  openDialog.Filters.Add "All Files", "*.*"
  If openDialog.Show Then
    imageName = openDialog.SelectedItems(1)
  End If

  Set shp = ActiveDocument.Shapes.AddPicture( _
     FileName:=imageName, _
       SaveWithDocument:=True, _
      Anchor:=Selection.Range)
  With shp
        .WrapFormat.Type = wdWrapTight
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .Left = wdFrameRight
   End With
End Sub

dcof wrote:

Thus would you show me the code on how to generate this email message?