Dialogo centralizar na tela

perguntadas 2018-06-10 05:10:36 +0200

Existe comando para centralizar (horizontal/vertical) a Caixa de Dialogo na tela. A macro abaixo é possível informar as distancias da borda a esquerda e do topo.

  Sub EjecutarMiDialogoo4()
                  ' by Mauricio Baeza Servín
    Dim oDialogo As Object
    Dim oDialogoModelo As Object
        DialogLibraries.LoadLibrary( "Standard" )
        oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("miDialogo") )
        oDialogoModelo = oDialogo.getModel()
        With oDialogoModelo 
            .BackgroundColor = RGB(Rnd*255,Rnd*255,Rnd*255)     'El color de fondo
            .PositionX = 100                                'Posição a esquerda
            .PositionY = 100                                'Posição do topo.
            .Width = 200                                'Largura
            .Height = 200                               'Altura
        End With
        oDialogo.execute()
        oDialogo.dispose()  
    End Sub
editar alterar tag assinalar como ofensivo fechar mesclar Excluir