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

• #32902 thomas50.000 csendes tag

  Új Válasz 2016-10-08 13:13:20 #32902

  Ú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

  

  thomas50.000

  csendes tag

  Sziasztok!

  Van egy ilyen makróm!

  ActiveSheet.DrawingObjects.Delete
  Dim Kepneve As String, utvonal As String, sor As Long

  utvonal = "d:\valaki\valami\" '***

  For sor = 2 To 65
  Kepneve = Cells(sor, "A") & ".png" '*****
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Top = Rows(sor).Top
  .Height = Rows(sor).Height
  .Left = Columns(1).Left + Columns(1).Width - .Width
  End With
  Next
  End Sub

  Minden jól is működik a képek magassága megegyezik a sor magasságával, viszont a szélességük eltér.
  Én 0,8 cm-re szeretném az összesnek a szélességét.

  Erre valaki tudna megoldást?

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

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