Ú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.

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

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