Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
  Dim sFile As Variant, r As Range
  Set r = Range("B11")
  sFile = Application.GetOpenFilename(FileFilter:="Pic Files (*.jpg;*.bmp), *.jpg;*.bmp", Title:="Browse to select a picture")
  If sFile = False Then Exit Sub
  ActiveSheet.Unprotect
  With ActiveSheet.Pictures.Insert(sFile).ShapeRange
	.LockAspectRatio = True
	.Top = r.Top
	.Left = r.Left
	.Height = r.RowHeight * r.MergeArea.Rows.Count
  End With
  ActiveSheet.Protect
End Sub

Code: Select all

Sub CommandButton1_Click()
    Dim sFile As Variant, r As Range
    Dim imgIcon As Object
    Set r = Range("a5").MergeArea
    sFile = Application.GetOpenFilename(FileFilter:="Pic Files (*.jpg;*.bmp), *.jpg;*.bmp", _
        Title:="Browse to select a picture")
    If sFile = False Then Exit Sub
    ActiveSheet.Unprotect
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        Filename:=sFile, _
        LinkToFile:=False, _
        SaveWithDocument:=True, _
        Left:=r.Left, _
        Top:=r.Top, _
        Width:=r.Width, _
        Height:=r.Height)
    ActiveSheet.Protect
End Sub

Code: Select all

ActiveSheet.Pictures.Delete

Code: Select all

Sub CommandButton1_Click()
    Dim sFile As Variant, r As Range
    Set r = Range("a5").MergeArea
    sFile = Application.GetOpenFilename(FileFilter:="Pic Files (*.jpg;*.bmp), *.jpg;*.bmp", Title:="Browse to select a picture")
    If sFile = False Then Exit Sub
    ActiveSheet.Unprotect
    With ActiveSheet.Pictures.Insert(sFile).ShapeRange
        .LockAspectRatio = True
        .Top = r.Top + ((r.Height - .Height) / 2)
        .Left = r.Left + ((r.Width - .Width) / 2)
    End With
    ActiveSheet.Protect
End Sub

Code: Select all

Set r = Range("a5").MergeArea