Блог

У меня есть несколько ячеек, которые имеют цвет фона, и я хотел бы получить шестнадцатеричный цвет из этого.

Как я могу получить этот шестнадцатеричный код?

Большое вам спасибо!

С этой задачей может справиться не очень сложная макрофункция.

 REM  *****  BASIC  *****
Option VbaSupport 1

Function getBkColor(aCell As Range) As String
    getBkColor = "#"   CreateUNOService("com.sun.star.sheet.FunctionAccess").callFunction("DEC2HEX",Array(aCell.CellRange.CellBackColor))
End Function