Új hozzászólás Aktív témák

• Oly őstag

  #4087

  #4086 Fire/SOUL/CD

  2008-11-21 12:28:39

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #4086 Fire/SOUL/CD

  #4086 Fire/SOUL/CD

  Hali!

  Nos, a kért megoldáson kívűl még egy más módszert is beleraktam, érdekességként. A képet azért mellékeltem, nehogy más objektumot használj, hanem sima Image-t.

  

  Munkafüzet1 - Munka1(Code)

  Private Sub CommandButton1_Click()
  JPGFile = Application.GetOpenFilename("JPG files,*.jpg", , "Select picture...", , False)
  If JPGFile <> False Then
  Range("B2") = JPGFile
  Image1.PictureSizeMode = fmPictureSizeModeStretch
  Image1.Picture = LoadPicture(JPGFile)
  End If
  End Sub
  
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error GoTo errorhandling
  If (Target.Cells.Count = 1) And Target <> "" Then
  Range("B2") = Target
  Image1.PictureSizeMode = fmPictureSizeModeStretch
  Image1.Picture = LoadPicture(Target)
  End If
  Exit Sub
  errorhandling: MsgBox ("Multi Cells Selection found or FileOpen ERROR!")
  End Sub

  Fire.

  Gomb nélkül is meglehet ezt csinálni?

Új hozzászólás Aktív témák