Importarção de macros do exel

CientistaLouco · Enviada: Seg Set 03, 2007 10:35 am Assunto: Importarção de macros do exel

Eu estou querendo usar um arquivo que foi criado em Exel no calc, porém este arquivo tem uns botões de opção que chamam maros. Por exemplo um bdeterminado botão chama a macro dcalculado abaixo, que entre outras coisas abre a planilha D_d que encontra-se oculta. No entando no calc este botão não esta funcionando, existe alguma forma que puder aproveitar a macro criada no exel e os botões funcionarem de forma identica no Calc.

Abaixo a macro dcalculado
==============================================
Desde já fico agradecido.

Private Sub dcalculado_Click()

Worksheets("d&D").Visible = -1
Sheets("Dados").Select
Range("E9").Select
ActiveCell.FormulaR1C1 = "='d&D'!R[17]C[-2]"
Selection.ClearComments
Selection.Interior.ColorIndex = 35
Range("E10").Select
ActiveCell.FormulaR1C1 = "='d&D'!R[16]C[2]"
Selection.ClearComments
Selection.Interior.ColorIndex = 35
Range("H9").Select
ActiveCell.FormulaR1C1 = "='d&D'!R[12]C[-5]"
Selection.ClearComments
Selection.Interior.ColorIndex = 35
Range("H10").Select
ActiveCell.FormulaR1C1 = "='d&D'!R[11]C[-1]"
Selection.ClearComments
Selection.Interior.ColorIndex = 35
Sheets("D&d").Select

End Sub

Private Sub dmanual_Click()

Worksheets("d&D").Visible = 2

Sheets("Dados").Select

Range("E10").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E10").AddComment
Range("E10").Comment.Visible = False
Range("E10").Comment.Text Text:= _
"inserir diâmetro do tubo de medição de relatório de medição"
Selection.Interior.ColorIndex = 6
Range("H9").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("h9").AddComment
Range("h9").Comment.Visible = False
Range("h9").Comment.Text Text:= _
"inserir incerteza padronizada do diâmetro da placa de orifício do relatório de medição"
Selection.Interior.ColorIndex = 6
Range("H10").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("h10").AddComment
Range("h10").Comment.Visible = False
Range("h10").Comment.Text Text:= _
"inserir incerteza padronizada do diâmetro do tubo do relatório de medição"
Selection.Interior.ColorIndex = 6
Range("E9").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E9").AddComment
Range("E9").Comment.Visible = False
Range("E9").Comment.Text Text:= _
"inserir diâmetro da placa de orifício de relatório de medição"
Selection.Interior.ColorIndex = 6
Application.CutCopyMode = False

End Sub

Private Sub OptionButton1_Click()
Sheets("Dados").Select
Range("u6").Select
With Selection.Interior
.ColorIndex = 20
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("v6").Select
With Selection.Interior
.ColorIndex = 27
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Range("v11").Select
ActiveCell.FormulaR1C1 = "=SQRT((R[-5]C/100*(R[3]C[-17]+273.15))^2+R[-4]C^2+R[-3]C^2+R[-2]C^2+R[-1]C^2+0.5^2)"
End Sub

Private Sub OptionButton2_Click()
Sheets("Dados").Select
Range("u6:v6").Select
With Selection.Interior
.ColorIndex = 15
.PatternColorIndex = xlAutomatic
End With

Range("v11").Select
ActiveCell.FormulaR1C1 = "=SQRT(R[-4]C^2+R[-3]C^2+R[-2]C^2+R[-1]C^2)"

End Sub
_________________
Cientista_Louco

CientistaLouco · Enviada: Ter Set 04, 2007 12:54 pm Assunto:

Eu criei uma macro utilizando o recuso gravar macro para ocultar uma planilha; testei esta macro com o comando executar macro e ela funcionou adequadamente. Então crei um botão de ação e atribui esta macro ao evento "botãpo do mause pressionado" ativei o modo desing e ao pressionar no botão nada acontece.

Alguem pode me ajudar?
_________________
Cientista_Louco