Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 947 |
Objeto label do Aplicativo microsoft Excel VBA,
Saberexcel - o site das macros
Objeto Controle Label
Os controles de labels são principalmente usados para descrever outros controles em um UserForm. Um controle de labels não pode ser editado pelo usuário enquanto o UserForm está sendo executado. Use a propriedade de Legenda para estabelecer ou devolver o texto em um controle de labels. Outras propriedades freqüentemente usadas para formatar um controle de Label incluem a propriedade de Fonte e a propriedade ForeColor.
Como usar propriedades com a afirmação para formatar um controle de labels
Para usar O com a afirmação para modificar as propriedades de um controle de Etiqueta, siga esses passos: Inicie o excel e faça os passos seguintes
Na barra de ferramentas , aponte para a Macro, clique no Editor Básico Visual.
no botão de inserção de objetos do visual basic clique UserForm para inserir um UserForm no seu livro de exercícios.
Acrescente ao userform um label (rótulo)
Acrescente um controle de CommandButton ao UserForm.
Clique duas vezes o controle de CommandButton para abrir a janela de Código do UserForm.
Na janela de Código, digite(Copie e cole) o código seguinte do evento de Clique de CommandButton1:
Private Sub CommandButton1_Click()
With Label1
' atribuindo o texto ao objeto label
.Caption = "Este é o exemplo do Label 1"
' determinando o tamanho automatico do label (do tamanho do texto) .
.AutoSize = True
.WordWrap = False
' atribuindo o tamanho a fonte, o tamanho e estilo da fonte como também a cor.
.Font.Name = "Times New Roman"
.Font.Size = 14
.Font.Bold = True
' Atribuindo a cor da fonte (Azul)
.ForeColor = RGB(0, 0, 255)
End With
End Sub
Depois de inserido o procedimento execute o userform.
Click no botão CommandButton.
O texto "Isto é o Exemplo de Etiqueta 1"
Aprenda tudo sobre Aplicativo Microsoft Excel VBA - com SaberExcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1274 |
Saberexcel - Site das Macros
Essas declarações e procedimentos do Aplicativo Microsoft Excel VBA, impede o usuário de mover o userform (formulário) pela folha de planilha, tornando-o estático, imóvel.
Private Declare Function RemoveMenu _
Lib "user32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) _
As Long
Private Declare Function FindWindowA _
Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION As Long = &H400
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim lFrmHdl As Long, iCount As Integer
lFrmHdl = FindWindowA(vbNullString, Me.Caption)
If lFrmHdl <> 0 Then
'MF_BYCOMMAND
'Indicates that uPosition gives the identifier of the menu item.
'If neither the MF_BYCOMMAND nor MF_BYPOSITION flag is specified,
'the MF_BYCOMMAND flag is the default flag.
'MF_BYPOSITION
'Indicates that uPosition gives the zero-based relative position of the menu item.
'ie 0,1,2,3 etc
'Exit Sub
'Typical Windows has 6 menus
'Restore, Move, Size, Minimise, Maximize, Close
'Even though a Userform displays 2 = Move & Close
'By default Move is the Next item
'so just loop twice
For iCount = 0 To 1
RemoveMenu GetSystemMenu(lFrmHdl, False), 0, MF_BYPOSITION
Next iCount
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1100 |
Saberexcel - o site das macros
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 o Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 570 |
Esse exemplo de Macros, Procedimentos, Função e Declaração do Aplicativo Microsoft Excel VBA, ativa e ou desativa o botão NumsLock, com auxílio de um Botão Toogle (Botão de Ativação), que retorna (True / False ) (Verdadeiro ou Falso)
Function NumsLock() As Boolean
NumsLock = GetKeyState(VK_NUMLOCK) And 1 = 1
End Function
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub ToggleButton1_Click()
'declaração
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = IIf(kbArray.kbByte(VK_NUMLOCK) = 1, 0, 1)
SetKeyboardState kbArray
ToggleButton1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
Label1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
Frame1.Caption = IIf(NumsLock() = 0, "Tecla NumLook [Desativada]", "Tecla NumsLock [Ativada]")
If Label1.Caption = "Desativado" Then
Label1.BackColor = &H80C0FF
Frame1.ForeColor = &HFF&
Else
Label1.BackColor = &H80FF80
Frame1.ForeColor = &H4000&
End If
End Sub
Private Sub UserForm_Initialize()
'ToggleButton1.Value = True
ToggleButton1.Caption = IIf(NumsLock() = 0, "[Desativada]", "[Ativada]")
Label1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
End Sub
Aprenda Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1232 |
Saberexcel - o site das macros
Esses procedimentos e declarações do Aplicativo Microsoft Excel VBA, retiram o (X) de fechar o userform, você poderá usar isso para forçar o usuário a sair por um botão que o conduzirá a um outro lugar ou uma mensagem., baixe o exemplo, link no final da página.
INSIRA AS DECLARAÇÕES ABAIXO EM UM MÓDULO COMUM
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = -16
Public Const WS_SYSMENU = &H80000
Sub ChamarForm()
UserForm1.Show
End Sub
INSIRA OS PROCEDIMENTOS ABAIXO NA FOLHA DE CÓDIGO DO OBJETO USERFORM
Private Sub Label2_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink "http://www.saberexcel.com.com/"
End Sub
Private Sub Label3_Click()
Link = "mailto:[email protected]"
On Error GoTo SbError
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True '
Exit Sub
bError:
MsgBox "mensagem....... " & Link
End Sub
Private Sub UserForm_Initialize()
Dim hWnd As E_MarLong, lStyle As Long
If Val(Application.Version) >= 9 Then
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Else
hWnd = FindWindow("ThunderXFrame", Me.Caption)
End If
lStyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, (lStyle And Not WS_SYSMENU)
End Sub
Aplicativo Microsoft Excel VBA - Saberexel - o site das macros
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA