Erro Na programação de macro LIBRE OFFICE

[CRISTIANO123]

Boa tarde!

 

 

Estou tentando inserir um código para colorir figuras, porém não estou conseguindo.

 

Sei que VBA Excel e CALC tem algums diferenças.

 

 

 

Sub ColorirMapa ()

 

Dim Regiao AS Range(cell)

Dim Celula As String 

 

For Each Regiao In Range("Regiões") 

Celula = Cells(Regiao.Row, 3) 

ActiveSheet.Shapes(Regiao).Fill.ForeCollor = Range(Celula).Interior.Color 

Next Regiao

 

End Sub

 

 

 

 

 

 

 

Sem título 1.rar

[TianK]

Olá,

 

Responderam você << aqui >> no Ask do LibreOffice.

 

O erro apresentado é porque todo o rol de Objetos, serviços, métodos, propriedades são muito diferentes entre o VBA e a API UNO Basic do LibreOffice ou do Apache OpenOffice.

 

 

Mais informações neste << link >>.

 

[]s.

TianK