<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="HaExcel" script:language="StarBasic">REM  *****  BASIC  *****

Option Explicit

Sub Init
  Colors = Array( rgb(255,211, 32),_
                  rgb(174,207,  0),_
                  rgb(204,255,255),_
                  rgb(255,255,204),_
                  rgb(153,153,255),_
                  rgb( 61,235, 61),_
                  rgb(153,204,255),_
                  rgb(255,153,102),_
                  rgb( 35,184,220),_
                  rgb(230,230, 76) )
   
  Dim oDoc As Object, oUserProperties As Object
  oDoc = ThisComponent
  
  REM check if the ClassSheet Property exists
  oUserProperties = GetUserProperties(oDoc)
  If Not oUserProperties.getPropertySetInfo().hasPropertyByName( PropertyName ) Then
        REM create the ClassSheet property
        oUserProperties.addProperty( PropertyName, REMOVEABLE, &quot;&quot; ) &apos; TODO do not make it removeable
  End If
End Sub

Function RangeToString (oDoc As Object, oRange as Object) As String
  Dim addr
  addr = oRange.getRangeAddress()
  RangeToString = &quot;$&quot; &amp; oDoc.Sheets( addr.Sheet ).getName() _
      &amp; &quot;.$&quot; &amp; oDoc.Sheets( addr.Sheet ).Columns( addr.StartColumn ).getName() _
      &amp; &quot;$&quot; &amp; ( addr.StartRow + 1 ) &amp; &quot;:$&quot; _
      &amp; oDoc.Sheets( addr.Sheet ).Columns( addr.EndColumn ).getName() &amp; &quot;$&quot; &amp; ( addr.EndRow + 1 )
End Function
</script:module>