Exemplo da propriedade PictureAlignment
O exemplo a seguir usa a propriedade PictureAlignment para configurar uma imagem em segundo plano. O exemplo também identifica as opções de alinhamento fornecidas pelo PictureAlignment.
Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:
- Um quadro chamado Frame1.
- Um SpinButton chamado SpinButton1.
- Uma Caixa de Texto chamada TextBox1.
Dim Alignments(5) As String
Private Sub UserForm_Initialize()
Alignments(0) = "0 - Top Left"
Alignments(1) = "1 - Top Right"
Alignments(2) = "2 - Center"
Alignments(3) = "3 - Bottom Left"
Alignments(4) = "4 - Bottom Right"
'Specify a bitmap that exists on your system
Frame1.Picture = LoadPicture("c:\winnt2\ball.bmp")
SpinButton1.Min = 0
SpinButton1.Max = 4
SpinButton1.Value = 0
TextBox1.Text = Alignments(0)
Frame1.PictureAlignment = SpinButton1.Value
End Sub
Private Sub SpinButton1_Change()
TextBox1.Text = Alignments(SpinButton1.Value)
Frame1.PictureAlignment = SpinButton1.Value
End Sub
Private Sub TextBox1_Change()
Select Case TextBox1.Text
Case "0"
TextBox1.Text = Alignments(0)
Frame1.PictureAlignment = 0
Case "1"
TextBox1.Text = Alignments(1)
Frame1.PictureAlignment = 1
Case "2"
TextBox1.Text = Alignments(2)
Frame1.PictureAlignment = 2
Case "3"
TextBox1.Text = Alignments(3)
Frame1.PictureAlignment = 3
Case "4"
TextBox1.Text = Alignments(4)
Frame1.PictureAlignment = 4
Case Else
TextBox1.Text = Alignments(SpinButton1.Value)
Frame1.PictureAlignment = SpinButton1.Value
End Select
End Sub
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.