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

• #30025 Delila_1 Topikgazda Reinhardt #30024

  Új Válasz 2016-01-05 08:40:02 #30025

  Ú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

  Topikgazda

  válasz Reinhardt #30024 üzenetére

  Feltételezem, hogy címsorod van, ezért a képeket a második sortól kezdve szúrom be. Ellenkező esetben a +1-eket töröld a makróból három helyen.
  A képek magasságát a sorok magasságához igazítom, a képarányok megtartásával.

  A makróban 2 sort jelöltem csillagokkal. Az elsőnél a képek elérési útvonalát kell módosítanod, a másodiknál a kiterjesztést, ha nem jpg.

  Sub Kepek()
  Dim sor As Long, kepneve As String
  Dim utvonal As String
  
  utvonal = "D:\Képek\" '1.*******
  
  For sor = 1 To 15
  kepneve = Right("000" & sor, 3) & ".jpg" '2.*******
  Range("A" & sor + 1).Select
  ActiveSheet.Pictures.Insert(utvonal & kepneve).Select
  Selection.ShapeRange.Top = Rows(sor + 1).Top
  Selection.ShapeRange.Left = 0
  Selection.ShapeRange.LockAspectRatio = msoTrue
  Selection.ShapeRange.Height = Rows(sor + 1).Height
  Next
  End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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