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

• Oly őstag

  #4089

  #4088 Fire/SOUL/CD

  2008-11-21 12:50:17

  Ú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

  #4088 Fire/SOUL/CD

  #4088 Fire/SOUL/CD

  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.

  Lassan csak kiismerem...
  Na most az a gond, hogy a makró adja meg az elérési útvonalat a B2 celllának.
  Én ezt fordítva szeretném!

  Ha megadok egy elérési útvonalat a B2-be, akkor jelenjen meg az a kép.
  Ha módosítom a B2 tartalmát, akkor módosuljon automatikusan a kép is.

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