Recent content by tgmoon

I've been looking all over but can't find anything, but is there an easy bit of code to save a word file named as todays date? Many thanks Thom

Hi. I'm using the following bit of code to act according to what shape name is currently selected. Sub MySub() Dim sh As Shape On Error Resume Next Set sh = ActiveWindow.Selection.ShapeRange(1) If Not sh Is Nothing Then If sh.Name = "Picture" Then Call...

I have a whole load of little subs in a modules.... eg Sub WM1() On Error Goto ErrorHandler my code Exit Sub ErrorHandler: MsgBox "Error" End Sub. What I was wondering is if it is possible to have a single ErrorHandler that encompases the whole module?

Just tried it now. Oh dear.... i've got to go through all my code again with my new found knowledge of optional variables!!

Brilliant. Thanks Gerry, PHV and Combo. This will prove very helpful indeed.

Thanks everyone. Working a treat now, though i'm now trying to work out how to make the str2 optional!!

Hi. I'm getting a little confused. Should I be able to run a Sub using a variable. i.e. Sub SomeThing() Call SomethingElse("etc", "MYSUB") End Sub Function SomethingElse(str1 As String, str2 As String) some code = str1 str2 End Function Hope that sort of makes sense but the str2 is...

Has the normal.dot been user modified in any way? i.e. macro's and custom shortcut keys?

I'm having no problem nameing a shape with the following With ActiveWindow.Selection.ShapeRange .Name = myName End With But I was wondering if it is possible to delete the name (not the shape) and have powerpoint rename it using it's own convention?

opps. Got it. Thanks

I was just wondering if there's a quick bit of code to reset a userform when it is exited?

If, for example i'm writing the following code:- Dim EG1 as Boolean Dim EG2 as Boolean Dim EG3 as Boolean EG1 = ToggleButton1.Value EG2 = ToggleButton2.Value EG3 = ToggleButton3.Value But i've got EG's going up to EG30..... do I need to put each and everyone of them, or is there a quick way...

Hi. I'm trying to create a graph in powerpoint with VBA which will then apply the format required. A basic version below:- Sub GraphTest() Dim oShape As PowerPoint.Shape Dim oGraphChart As Graph.Application Set oShape = ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject _...

Silly me. worked it out. Create the button, and hide it!!

I was wondering if it was possible to embed an image in the userform that isn't initally seen by the user, untill a certain button is pressed, and a new button is created with thee image in it?