Minha vez agora…
Quero criar uma macro para, ao fornecer o nome de uma caixa de texto, um botão de pressão ou mesmo uma caixa de marcação dentro de uma planilha, que fique vinculada a uma célula e com as mesmas dimensões da célula.
Por exemplo tenho uma caixa de texto “caixa de texto 1’” que está ancorada na célula A1, então quero que a caixa de texto tenha o mesmo tamanho da célula e fique sobre a célula.
Sub Ajusta (sCaixadeTexto as String, sCelula as String)
REM localiza e seleciona o objeto cujo nome é sCaixaDeTexto,
REM Localiza e seleciona o objeto cujo nome é sCélula,
REM Ancora o objeto da caixa de texto à célula,
REM Ajusta posição da caixa de texto à posição da célula na página (em milimetros),
REM Ajusta o tamanho da caixa de texto ao tamanho da célula (em milimetros),
End Sub
Isso por que eu não vi no LibreOffice, meios de ajustar a posição da caixa de Texto à uma célula. sem fazê-lo calculando manualmente a posição e tamanho. Caso a posição da célula mude na planilha, a posição da caixa de texto em geral se perde.
