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

• #29941 Delila_1 veterán Pilács #29940

  Új Válasz 2015-12-20 07:22:07 #29941

  Ú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 Pilács #29940 üzenetére

  Feltételezem, hogy az "egyik oszlop" a C, ez az oszlop tartalmaz címsort, és hogy a képek és az útvonaluk folyamatosan követik egymást, üres sorok nélkül.

  A makró a bemásolt képek magasságát a sorok magasságához igazítja, és a méretarányt az eredetihez képest megtartja.

  Sub kepek()
  Dim sor As Long, usor As Long
  usor = Range("C" & Rows.Count).End(xlUp).Row
  
  For sor = 2 To usor
  Range("D" & sor).Select
  ActiveSheet.Pictures.Insert(Range("C" & sor)).Select
  Selection.ShapeRange.LockAspectRatio = msoTrue
  Selection.ShapeRange.Height = Rows(sor).Height
  Next
  Columns(3).Delete Shift:=xlToLeft
  End Sub

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