Excel bug workaround: Cannot shift objects off sheet [restored post]

dokumentált bugba futottam bele ma reggel: az Exceled az outline-os táblák csikicsukizása (=show or hide) közben hajlamos aljas módon elpakolászni a commentet tartalmazó cellák comment boxait a helyükről. Ez odáig fajulhat, hogy a tábla fizikai sor/oszlopszélességén túlra pakolja őket és ekkor jön a baj: nem korrigálja, amit elbarmolt, hanem helyette rád mordul egy kétértelmű hibaüzenettel a következő sor/oszlop csikicsukinál. Ezt a problémát oldja fel az alábbi kis függvény, ami minden commentboxodat a forrás cella jobb felső sarka fölé pozícionál 10-10 pixellel. Használd egészséggel:

Sub resetCommentPositions()
    Dim S As Worksheet, C As Comment
    For Each S In ThisWorkbook.Worksheets
        For Each C In S.Comments
            C.Shape.Left = C.Parent.Offset(0, 1).Left + 10
            C.Shape.Top = C.Parent.Offset(0, 1).Top - 10
        Next C
    Next S
End Sub
]]>

1 thought on “Excel bug workaround: Cannot shift objects off sheet [restored post]

  1. orrmany

    Hát, ez nem csak [restored], hanem [duplicated] is… 🙂
    //fns.pappito.com/2010/06/07/excel-bug-workaround-cannot-shift-objects-off-sheet-restored-post/

    Reply

Leave a Reply

Your email address will not be published. Required fields are marked *