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

• #27779 Fferi50 Topikgazda Telda #27775

  Új Válasz 2015-07-15 13:54:44 #27779

  Ú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

  

  Fferi50

  Topikgazda

  válasz Telda #27775 üzenetére

  Szia!

  Csak nagyon halkan kérdezem: Ugye meg sem próbáltad végigcsinálni azt a mozdulatsort az egérrel, amit leírtam?

  Üdv.

• #27777 Delila_1 veterán Telda #27775

  Új Válasz 2015-07-15 13:28:18 #27777

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

  A lenti makró az A1 cellában lévő rajzszámhoz tartozó képhez készít hiperlinket a B1 cellába. A makróban kell megadni az elérési útvonalat, és a kép kiterjesztését.

  Sub rajz()
  Dim utvonal As String
  
  utvonal = "F:\jpg\Fotó\" 'ide kell a saját útvonalad
  ActiveSheet.Hyperlinks.Add Anchor:=Range("B1"), Address:= _
  utvonal & Range("A1").Value & ".jpg", TextToDisplay:=Range("A1").Value
  End Sub

  Ahhoz, hogy az összes rajzszámhoz beírhassuk a hiperlinket, meg kell adnod, melyik oszlopban vannak a rajzszámok, melyik oszlopba kéred a hiperlinket.
  Az is fontos, hogy a rajzszámos oszlop hányadik sorában kezdődnek a számok, és hogy vannak-e olyan sorok, amikben nincs rajzszám.

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