Hi jpinto1167
Check out this Addin ?? May help
http://www.xcelfiles.com/DocProp.html
What this does is gets the Microsoft office Doc. properties
{You'll need to select File type "*")
It will tell you if it is NOT a MSO Doc other wise it will load in the File details .... one of which is the...
If you just need to map a network drive then
Here is one of many ways......
Sub Tester()
Dim WshNetwork As Object
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "H:", "\\Server\Public"
Set WshNetwork = Nothing
End Sub
If you want to see the Dialog then...
Here is a Non API method to do this
Option Explicit
Private mblnMouseDown As Boolean
Private msngX As Single
Private msngY As Single
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
mblnMouseDown =...
Yes, use PHV's code for std browsing. It is only when you need to get a little more control and ensure no Errors that you will need to look @ the CLSID const.
Ivan F Moala
http://www.xcelfiles.com
If you just need to browse for a Folder and NOT files then try this.......
'// Minimum DLL version shell32.dll version 4.71 or later
'// Minimum operating systems Windows 2000, Windows NT 4.0 with Internet Explorer 4.0,
'// Windows 98, Windows 95 with Internet Explorer 4.0
'// objFolder =...
No there isn't a Property of the Userform.
There is however one for all Windows. To do this you need API's.
Note. If you remove this you cannot move or close the form. Thats because this area houses the menus.
The following code requires a Checkbox and is just an Example .... it includes code...
Or just use native Excel commands
Sub FileSize()
Dim strFileSize As String
On Error GoTo NoGo
strFileSize = FileLen(ActiveWorkbook.FullName) / 1024
MsgBox ActiveWorkbook.Name & " is " & Format(strFileSize, "#,#00") & " KBytes" & vbLf & _
"It has been saved as " &...
something like this ...
Option Explicit
Public Declare Function ShowWindow _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) _
As Long
Public Declare Function SetForegroundWindow _
Lib "user32" ( _
ByVal hwnd As Long) _
As Long
Public Const SW_MAXIMIZE As...
You can do this via API calls and sendkeys
BUT you need to be using XL2000+ due to Addressof operator
Have a look here
http://www.xcelfiles.com/API_02.html
Option Explicit
Declare Function SetTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As...
Your need to Step through your code in the userform.
Or post here what code you have running in your Userform intialize
Ivan F Moala
http://www.xcelfiles.com
Have a look here for the underlying code to do this
http://www.xcelfiles.com/VB_Quick17.html
It shows he basics of saving an Image
Ivan F Moala
http://www.xcelfiles.com
or just
Function IsFormula(Rg As Range) As Boolean
'// Only for single cell and not a selection
IsFormula = Rg.HasFormula
End Function
you could also use the old Xl4 macro
Ivan F Moala
http://www.xcelfiles.com
Sub subTest()
Dim myRange As Range
Set myRange = Application.InputBox(prompt:="Sample", Type:=8)
MsgBox myRange.Address
End Sub
Ivan F Moala
http://www.xcelfiles.com
have a look @ this link which may help you out in referencing...........
http://www.mrexcel.com/board2/viewtopic.php?t=8251
Ivan F Moala
http://www.xcelfiles.com
Excel can do a number of things.
Games?? Have a look here for some of my Japanese friends
games......you would be surprised.
http://www.xcelfiles.com/Games.html
Ivan F Moala
http://www.xcelfiles.com
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.