Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #15754 Delila_1 veterán skoos #15751
    Új Válasz #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