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

• #15754 Delila_1 veterán skoos #15751

  Új Válasz 2012-12-11 14:19:38 #15754

  Ú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 skoos #15751 üzenetére

  Cella méretéhez nem tudom igazítani a képeket, pedig állítólag lehet.
  A lenti makró az A oszlop celláihoz rendel megjegyzéseket, és ezekbe teszi be a képet.

  Az útvonalat írd át. A képeket ehhez a módszerhez át kell nevezned Kép1, Kép2, stb. névre. Érdemes új mappát létrehozni, abba bemásolni az eredeti képeket, és ott adni nekik új nevet. A Total Commander csoportos átnevezés parancsával ez könnyen megoldható.

  Sub KepekMegjegyzesbe()
  Dim sor%, utvonal As String
  utvonal = "E:\Képek\" 'Ezt írd át
  sor% = 1
  
  Do While Cells(sor%, 1) > ""
  With Cells(sor%, 1)
  .Select
  .AddComment
  ActiveCell.Comment.Visible = True
  .Comment.Text Text:=""
  .Comment.Visible = True
  End With
  Selection.Comment.Shape.Select True
  Selection.ShapeRange.Fill.UserPicture utvonal & "Kép" & sor% & ".jpg"
  sor% = sor% + 1
  Loop
  End Sub

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