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

• #31479 teacherhajni újonc Delila_1 #31478

  Új Válasz 2016-05-07 17:59:59 #31479

  Ú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

  

  teacherhajni

  újonc

  válasz Delila_1 #31478 üzenetére

  Nagyon szépen köszönöm! Ez kézzel több órás munka volt eddig

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long
  Dim usor As Long
  Dim file As String

  utvonal = "C:\Users\Public\Pictures\Sample Pictures\"
  usor = Range("A" & Rows.Count).End(xlUp).Row

  For sor = 1 To usor
  Kepneve = Cells(sor, "A") & ".jpg"
  If Cells(sor, "A") = "" Then GoTo Tovabb
  file = Dir(utvonal & Kepneve)
  If file = "" Then GoTo Tovabb
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Left = Columns(4).Left
  .Top = Rows(sor).Top
  .Select
  Selection.ShapeRange.LockAspectRatio = msoTrue
  Selection.ShapeRange.Height = 120
  End With
  If Kepneve = "" Then GoTo Tovabb
  Rows(sor).RowHeight = 130

  Tovabb:
  Next
  End Sub

• #31477 teacherhajni újonc Delila_1 #31476

  Új Válasz 2016-05-07 14:06:31 #31477

  Ú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

  

  teacherhajni

  újonc

  válasz Delila_1 #31476 üzenetére

  Köszönöm!
  Picit módosítottam, most ez fut:

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long

  utvonal = "C:\Users\Public\Pictures\Sample Pictures\"
  sor = 1

  Do While Cells(sor, "A") <> ""
  Kepneve = Cells(sor, "A") & ".jpg"

  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Left = Columns(4).Left
  .Top = Rows(sor).Top
  .Select
  Selection.ShapeRange.LockAspectRatio = msoTrue
  Selection.ShapeRange.Height = 120

  End With
  Rows(sor).RowHeight = 130
  sor = sor + 1

  Loop

  End Sub

  Annyival próbáltam kiegészíteni, hogy
  - ha a cikkszám nincs kitöltve, akkor ugorjon a következő sor A cellájára, és ne keressen képet
  - ha nem találja az adott fájlnevű képet, akkor is ugorjon a következő sor A cellájára, és ne akadjon le.
  A logikát sejtem, hogy hogy kell megcsinálni, csak a parancsokat nem...
  

• #31475 teacherhajni újonc Delila_1 #11105

  Új Válasz 2016-05-07 11:09:50 #31475

  Ú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

  

  teacherhajni

  újonc

  válasz Delila_1 #11105 üzenetére

  Kedves Felhasználók!
  Problémám a következő: Van egy több száz soros xls-em különböző termékekkel. Ezekhez a termékekhez kellene a fotójukat hozzárendelnem, lehetőleg automatizálva. Arra találtam itt megoldást 2011-es hozzászólásokban, hogy ez makrókkal megoldható, próbálkoztam is, nagyjából működik (makrók terén nagyon kezdő vagyok, kb. 1 napja ismerkedem velük főleg az itteni tippek alapján). Alapvetően az automatizálás résszel van problémám, hogy ugorjon át a következő sorban lévő cellára.

  Tehát pl. C:\Users\Public\Pictures\Sample Pictures mappában van minden termék képe összegyűjtve, a termék cikkszáma Tulipán (pl. A2 cellába beírva), a kép neve emiatt Tulipán.jpg, akkor pl. a D2 cellába illessze be a képét. Utána pedig haladjon tovább az A oszlopban lévő többi cikkszám alapján. A beillesztett képek legyenek pl. 4 cm magasak, tartsák meg a méretarányt, helyeződjenek át a cellával, de a méret maradjon, és legyen pl. 160 px magas a sor, ahova bekerült a kép (ez a formázás rész a makró rögzítés funkcióval már megy). És az még fontos, hogy ha az xls-t elküldöm emailen, akkor ne keresgélje a mappát, ahol a képeket megtalálta, hanem az xls-hez csatolva legyenek a képek.
  Ja, és 2003-as excelem van itthon, az irodában meg még régibb...

  Előre is köszönöm!

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