-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.