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

• #38202 Fferi50 Topikgazda bb0t #38201

  Új Válasz 2018-06-03 22:53:10 #38202

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

  Szia!

  Egy mintafájl nagyon sokat segítene szerintem.
  De itt egy próba makró:
  Sub Kepimport()
Dim cl As Range
Const utvonal = ("utvonal\") ' ide írd be a saját elérési útvonalad, \ legyen a végén
For Each cl In Columns("A").Cells ' az A oszlop helyére írd be azt, ahol a cikkszámok vannak
If cl.Value <> "" Then
With cl.Parent.Pictures.Insert(utvonal & cl.Value & ".JPG") 'ha nem jpg a kiterjesztés, akkor azt írd a helyére
.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft ' itt állítjuk be a méretet, a 0.3 helyére próbálgatással nézd meg, mi lesz a jó
.Top = cl.Top ' a cikkszám magasságába kerül a kép
.Left = Range("H1").Left ' a H oszlophoz.
End With
Else
Exit For ' ha nincs érték a cellában, befejeztük a ciklust.
End If
Next
MsgBox "KÉSZ", vbInformation
End Sub

  Ha a cella magasság nem elég nagy és a képek átfedik egymást, akkor a cella magasságon állíts, mielőtt a makrót lefuttatod.
  Természetesen makrós fájlként (xlsm) kell mentened.

  Üdv.

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