Snasui Excel Forum

Code: Select all

'Other code
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    ActiveCell.Offset(1, 0).Activate
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Placement = xlMoveAndSize
End With
'Other code

Code: Select all

Private Sub CommandButton1_Click()
    Dim ra As Range
    Dim cPicture, pic
    Dim sImgFileFormat As String
    cPicture = Application.GetOpenFilename("Pictures(*.jpg),*.gif", , "SelectPiture")
    MsgBox "Open" & cPicture
    If cPicture = "False" Then Exit Sub
    Sheets(2).Image1.Picture = LoadPicture(cPicture)
    Sheets(2).Image1.PictureSizeMode = fmPictureSizeModeStretch
    Set pic = Sheets(2).Pictures.Insert(cPicture)
    With pic
        .ShapeRange.LockAspectRatio = msoFalse
        ActiveCell.Offset(1, 0).Activate
        .Height = ActiveCell.Height
        .Width = ActiveCell.Width
        .Top = ActiveCell.Top
        .Left = ActiveCell.Left
        .Placement = xlMoveAndSize
    End With
    Set pic = Nothing
End Sub