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

Ma jött szembe ugyanez a hiba, ezért túrtam ki a Google Reader cache-ből a rég dokumentált workaroundot: A Microsoft által 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
]]>

Leave a Reply

Your email address will not be published.