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

• #4088 Fire/SOUL/CD félisten Oly #4087

  Új Válasz 2008-11-21 12:34:58 #4088

  Ú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 #4087 üzenetére

  Hali!

  Persze, de bent is van a kódban. Ha rálépsz az adott cellára, amiben a kép elérése van akkor egyből betölti(már ha valóban létező képről van szó). Próbáld ki. A gombos megoldást csak érdekességnek szántam. Ha nem kell akkor töröld ki a makróból a commandbutton1_Click() metódust, meg persze töröld a gombot is.
  Pár módosítást eszközöltem, mert a korábbi verzió mindig megpróbál betölteni egy képet, ha az adott cella nem üres. Ez zavaró lehet hiszen ha egy cellában szám vagy szöveg van és az nem egy kép elérési útvonala, akkor hibát dob. Ez a javított kód.

  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
  xstr = LCase(Target)
  Pos = InStr(1, xstr, ".jpg", vbTextCompare)
  If (Target.Cells.Count = 1) And (Pos > 0) 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