Wie können Sie alle Rahmen in einem Arbeitsblatt entfernen?

Question

In Applescript und Excel kann ich eine Grenze von einer Zelle mit so etwas wie entfernen:

tell application "Microsoft Excel" 
    set myRange to range "B2:B2" of active sheet 
    set myBorders to {border top, border bottom, border left, border right} 
    repeat with i from 1 to 4 
     set theBorder to get border myRange which border (item i of myBorders) 
     set line style of theBorder to line style none 
    end repeat 
end tell 

lernten von Remove cell borders aber ich habe Probleme versuchen, alle Grenzen aus einem Arbeitsblatt zu entfernen, ohne durch jede Säule zu Schritt aufweisen und Reihe. Ich habe herausgefunden, wie das aktive Blatt erhalten mit:

set activeSheet to worksheet (get name of active sheet) of workbook (get name of active workbook) 

und wenn die Dokumentation der Erforschung ich sehe:

autoshape line callout one no border 
autoshape line callout two no border 
autoshape line callout three no border 
autoshape line callout four no border 

aber ich kann nicht scheinen, um herauszufinden, wie alle Grenzen zu entfernen, ohne in jede Spalte und Zeile treten. Von meinen Suchen fand ich "How do I use AppleScript to clear a range of cells in excel 2008" aber das hat nicht funktioniert. Gibt es eine einfachere Möglichkeit, alle Rahmen in einem Arbeitsblatt zu entfernen?

Answer 1

Sie können auf den verwendeten Bereich des aktiven Arbeitsblatts zugreifen, um alle Ränder aus diesem Bereich zu entfernen.

tell application "Microsoft Excel" 
    set usedRange to used range of active sheet 
    set myBorders to {border top, border bottom, border left, border right} 
    repeat with i from 1 to 4 
     set theBorder to get border usedRange which border (item i of myBorders) 
     set line style of theBorder to line style none 
    end repeat 
end tell