OpenOffice.info

Code: Alles auswählen

Sub Druckauswahl(Event)

    Dim oChkBox as Object
    Dim i as Integer
    Dim j as Integer
    Dim k as Integer
    Dim myLineStyle as new com.sun.star.table.BorderLine
    Dim myProtection as new com.sun.star.util.CellProtection

    oChkBox = Event.Source.Model
    oSheet = ThisComponent.getCurrentController.getActiveSheet

    Select Case oChkBox.State
        Case 0
            i = right(oChkBox.Name,1) 'Ranges
            oRange = oSheet.getCellRangeByName("schmal_" & i)

            for j = 0 to ubound(oRange.data) 'Y-Axis/Rows

                    Select Case j
                        Case 2, 4, 6, 8, 10
                            myLineStyle.Color = rgb(255,255,255)
                            myLineStyle.outerLineWidth = 0
                            oCell.topBorder = myLineStyle
                    End Select

                for k = 0 to ubound (oRange.data(0)) 'X-Axis/Colums

                    oCell = oRange.getcellbyposition(k,j)
                    oCell.CharColor = rgb (200,200,200)
                    myProtection.isPrintHidden = True
                    oCell.CellProtection = myProtection

                next k
            next j

        Case 1
            i = right(oChkBox.Name,1) 'Ranges
            oRange = oSheet.getCellRangeByName("schmal_" & i)

            for j = 0 to ubound(oRange.data) 'Y-Axis/Rows

                    Select Case j
                        Case 2, 4, 6, 8, 10
                            myLineStyle.Color = rgb(0,0,0)
                            myLineStyle.outerLineWidth = 5
                            oCell.topBorder = myLineStyle
                    End Select

                for k = 0 to ubound (oRange.data(0)) 'X-Axis/Colums

                    oCell = oRange.getcellbyposition(k,j)
                    oCell.CharColor = rgb (0,0,0)
                    myProtection.isPrintHidden = False
                    oCell.CellProtection = myProtection

                next k
            next j

    End Select
    
End Sub

Code: Alles auswählen

    Dim myProtectionOn as new com.sun.star.util.CellProtection
    with myProtectionOn
       .isPrintHidden = True
    end with

    Dim myProtectionOff as new com.sun.star.util.CellProtection
    with myProtectionOff
       .isPrintHidden = False
    end with

[...]

                    oCell.CellProtection = myProtectionOn

[...]

                    oCell.CellProtection = myProtectionOff

Code: Alles auswählen

Sub Main
	dim linestyle as new com.sun.star.table.BorderLine
	linestyle.Color = 111111
	linestyle.OuterLineWidth = 100
	sel = thisComponent.CurrentSelection
	borders = array("TopBorder", "LeftBorder", "RightBorder", "BottomBorder")
	styles = array(linestyle,linestyle,linestyle,linestyle)
	sel.setPropertyValues(borders , styles)

End Sub