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

• #2732 Delila_1 veterán Larry303 #2731

  Új Válasz 2007-10-18 18:19:19 #2732

  Ú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

  

  Delila_1

  veterán

  válasz Larry303 #2731 üzenetére

  Valószínűnek tartom, hogy egy-egy sorodban vannak a különböző képek forrásai.
  Írd be ezt a kis makrót – az X helyére a hyperhivatkozás oszlopának sorszámával.
  Az aktuális sorban állva ez a Windows kép- és faxmegjelenítővel hozza be a képedet.
  Érdemes egy gombhoz hozzárendelni a makrót.

  sub Képnéző()
  sor = Selection.Row
  Kép = Cells(sor, X).Value
  Shell ("rundll32.exe shimgvw.dll,ImageView_Fullscreen " & Kép)
  end sub

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