| Descricao: |
 Saberexcel - site das macros
Essas declarações e funções do Aplicativo Microsoft Excel VBA, retorna uma mensagem personalizada do Windows Explorer e algumas informações do sistema conforme mostra a mensagem abaixo.
Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
(ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As _
String, ByVal hIcon As Long) As Long
Declare Function GetActiveWindow Lib "user32" () As Long
Sub Sobre_Saberexcel_BR()
Dim hwnd As Integer
On Error Resume Next
hwnd = GetActiveWindow()
ShellAbout hwnd, Nm, vbCrLf + Chr(169) + "" & "SaberexcelBR - Excel VBA Estudos®" _
+ vbCrLf, 1
On Error GoTo 0
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
|