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

• #4086 Fire/SOUL/CD félisten Oly #4084

  Új Válasz 2008-11-20 22:56:21 #4086

  Ú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

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Oly #4084 üzenetére

  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.

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