Insert and resize image

[lenguyenleduong]

Dear friends,

I create a word macro to insert, crop and resize image. But it duplicate the inserted image, one orginal size and one resized. How to solve this? Thanks.
Here is the code

Private Sub CommandButton1_Click()

Dim Photo As InlineShape
Dim sngHeight, sngWidth, sngCrop As Single
Dim strPicName As String

strPicName = ""

With Application.Dialogs(wdDialogInsertPicture)


If .Show = -1 Then strPicName = .Name
End With


Set Photo = ActiveDocument.InlineShapes.AddPicture(FileName:=s trPicName, _
LinkToFile:=False, SaveWithDocument:=True)

With Photo
sngHeight = .Height
sngWidth = .Width
With .PictureFormat
.CropLeft = sngWidth * 0.175
.CropRight = sngWidth * 0.12
'.CropTop = sngHeight * sngCrop
'.CropBottom = sngHeight * sngCrop
End With
'.Height = .Height * 1 / (1 - sngCrop * 2)
'.Width = .Width * 1 / (1 - sngCrop * 2)
.LockAspectRatio = msoCTrue

.Width = .Width - (CropRight + CropLeft)
.Width = InchesToPoints(1.5)

End With

End Sub

[gmaxey]

This is because your code inserts the picture twice. Try:

With Application.Dialogs(wdDialogInsertPicture)
  If .Display = -1 Then
    If .Name <> "" Then
      Set Photo = ActiveDocument.InlineShapes.AddPicture(FileName:=.Name, _
                 LinkToFile:=False, SaveWithDocument:=True, _
                 Range:=Selection.Range)
    End If
  End If
End With

[lenguyenleduong]

Originally Posted by gmaxey

This is because your code inserts the picture twice. Try:

With Application.Dialogs(wdDialogInsertPicture)
  If .Display = -1 Then
    If .Name <> "" Then
      Set Photo = ActiveDocument.InlineShapes.AddPicture(FileName:=.Name, _
                 LinkToFile:=False, SaveWithDocument:=True, _
                 Range:=Selection.Range)
    End If
  End If
End With

Thanks so much.