Snasui Excel Forum

Code: Select all

Sub test()
    Application.Dialogs(xlDialogInsertPicture).Show
    With Selection
        .Left = Range("A2:H15").Left
        .Top = Range("A2:H15").Top
        .Width = Range("A2:H15").Width
        .Height = Range("A2:H15").Height
    End With
End Sub

Code: Select all

Sub ÊÕèàËÅÕèÂÁ¼×¹¼éÒ7_Click()
Application.Dialogs(xlDialogInsertPicture).Show
Dim r As String
Dim imgIcon
On Error Resume Next
With ActiveSheet.Shapes(7)
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=.Width, Height:=.Height)
End With
Set imgIcon = Nothing
End Sub

Code: Select all

Application.Dialogs(xlDialogInsertPicture).Show

Code: Select all

Private Sub CmdCableModem_Click()
    frmMain.Hide
    UserForm3.Show
End Sub

Private Sub CmdFullSet_Click()
    frmMain.Hide
    UserForm2.Show
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    UserForm2.Hide
    Sheets("3000000585").Visible = False
    Sheets("3000010513").Visible = False
    Sheets("2000010021").Visible = False
    Sheets("Main Menu").Select
    frmMain.Show
End Sub

Code: Select all

Private Sub CommandButton1_Click()
   UserForm3.Hide
   Sheets("2000010021").Visible = False
   'Sheets("2000010649").Visible = False
   'Sheets("2000010660").Visible = False
   'Sheets("2000010774").Visible = False
   'Sheets("3000000795").Visible = False
   'Sheets("3000000796").Visible = False
   'Sheets("2000010032").Visible = False
   'Sheets("2000010542").Visible = False
   Sheets("Main Menu").Select
   frmMain.Show
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    UserForm4.Hide
    frmMain.Show
End Sub