Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

Essas macros e procedimentos do Aplicativo Microsoft Excel VBA, abre um determinado objeto Userform(Formulário) em diversos posições na folha de planilhas, com auxílio de objetos Options, voce poderá escolher o lugar para o posicionamento do Userform.

EM UM MÓDULO COMUM INSIRA OS CÓDIGOS
Sub Abrir_userform()
If Sheets(1).ComboBox1.Text = "" Then
MsgBox "Selecione uma das opções"
Else

Select Case Sheets(1).ComboBox1.Text
Case "Centro"
UserForm1.StartUpPosition = 2
Case "Qualquer Lugar"
UserForm1.StartUpPosition = 1
End Select

UserForm1.Show
End If
End Sub

NA FOLHA [MÓDULO] DE CÓDIGO DO OBJETO USERFORM INSIRA OS PROCEDIMENTOS

Dim X As Integer, Y As Integer

Private Sub optCentro_Click()
If optCentro.Value Then
UserForm1.Left = X
UserForm1.Top = Y
End If
End Sub

Private Sub optDirAba_Click()
If optDirAba.Value Then
UserForm1.Left = ActiveWindow.Width - UserForm1.Width
UserForm1.Top = ActiveWindow.Height - UserForm1.Height
End If
End Sub

Private Sub optDirAci_Click()

If optDirAci.Value Then
UserForm1.Left = ActiveWindow.Width - UserForm1.Width
UserForm1.Top = 0
End If

End Sub

Private Sub optEsqAba_Click()
If optEsqAba.Value Then
UserForm1.Left = 0
UserForm1.Top = ActiveWindow.Height - UserForm1.Height
End If
End Sub

Private Sub optEsqAci_Click()
If optEsqAci.Value Then
UserForm1.Left = 0
UserForm1.Top = 0
End If
End Sub

Private Sub UserForm_Activate()
X = UserForm1.Left
Y = UserForm1.Top
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

l


   Baixe o exemplo de planilha contendo macros e procedimentos acima
Excel planilha vba usf posicionamento formulario na planilha (27.37 kB)