OpenOffice / LibreOffice: Set Selections' Values As Background Color To JSON (BASIC Macro)

SetValueAsBackgroundColor.bas

REM  *****  BASIC  *****

'Sets the value of selected cells as the hex code for the background color.'
'(More useful if you set this macro as a toolbar button.)'

SUB SetValueAsBackgroundColor
	SET selectionRange = ThisComponent.CurrentSelection
	
	FOR j = 0 TO selectionRange.Columns.getCount() - 1
		FOR i = 0 TO selectionRange.Rows.getCount() - 1
		
			SET cell = selectionRange.getCellByPosition(j, i) 

			colorAsDec = cell.CellBackColor
			colorAsHex = CreateUNOService("com.sun.star.sheet.FunctionAccess").callFunction("DEC2HEX",Array(colorAsDec))

			'Pad hex string if needed.'
			WHILE Len(colorAsHex) < 6
				colorAsHex = "0" + colorAsHex
			WEND

			cell.setString("#" + colorAsHex)
    		
		NEXT
	NEXT
END SUB