Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: tgmoon
  • Content: Threads
  • Order by date
  1. tgmoon

    Save Word file as todays date

    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
  2. tgmoon

    Find Shape Name. PPT VBA 2000

    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...
  3. tgmoon

    ErrorHandler question

    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?
  4. tgmoon

    Run Sub using Variable PPT VBA 2000

    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...
  5. tgmoon

    Naming Shape PPT VBA 2000

    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?
  6. tgmoon

    Reset UserForm, VBA PPT 2000

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

    Dim Question

    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...
  8. tgmoon

    MSGraph Powerpoint VBA

    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 _...
  9. tgmoon

    Embed unused image in VBA Userform

    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?
  10. tgmoon

    ToggleButton Control

    Hi. I'm creating a form with 10 toggle buttons on it forming a grid, and i'm trying to set it up so that if one is depressed, all the others are raised, and so on with each button. Assuming there were only 2 buttons, i'd use the code below Private Sub ToggleButton1_Click() If...
  11. tgmoon

    ppSelection..... question (Powerpoint 2000)

    I'm trying to write a bit of code that does something different if the object selected in PP is with ppSelectionNone, ppSelectionShapes or ppSelectionText. But i was wondering what the ppSelection for just a plain line is, as opposed to a box. Many thanks Thom
  12. tgmoon

    Powerpoint VBA Button Face code

    Hi. I've come up with the following (and probably not very good) code to create a custom toolbar and button face in VBA. Sub addBar() ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle, 162.25, 265.5, 44.75, 32#).Select With ActiveWindow.Selection.ShapeRange...
  13. tgmoon

    custom dialog powerpoint 2000

    Is it possible, once a custom dialog has been called up, to have it remain showing, but still allow the user to make changes to the document under it? i.e. much like a floating toolbar. Many thanks Thom
  14. tgmoon

    Building Icons with VBA (Powerpoint 2000)

    I've been hunting around the net to no avail trying to find out a way of building icon faces using VBA, (or if i even need to!!) I'm building a powerpoint add-in and need to create custom icons. I've no problem building the toolbar and adding icons, and adding MS predefined graphics, but none...
  15. tgmoon

    Conditional formatting Excel 2000

    I am trying to get a cell to change color if certain conditions are met in the three cells before it. So, if cells $I12, $I13, $I14 all say "Yes" then cell $I15 will turn Green, But to complicate things, if any of the first 3 cells says "NR" and the rest still say "Yes" then $I15 will still...
  16. tgmoon

    Attached template name

    Is there a way to create a dialoge box to pop when requested showing what master template is attached to the active document? I know there's the option to go "tool", "templates & Addins" and view attached file there, but it'd be nice to assign a shortcut key to show a message box with the...
  17. tgmoon

    Track Changes Word 2003

    I was wondering if it is possible to copy track changes into another document. I ask because we have a document that is playing silly beggers and would ideally like to copy/paste to a blank template, but we need the track changes!! many thanks thom
  18. tgmoon

    Office VBA Question

    I hope that i can put this clearly. I need to reference to a specific file in a users directory which is the same for all users, the only difference being the username, i.e. below. Is there any bit of code that can autmatically get the users NT/XP login name and insert it...
  19. tgmoon

    Excel Charting

    Does anyone know if its possible to automatically control, not only the height of a bar chart, but also the width of the bar depending on data? Thanks
  20. tgmoon

    Excel Data Label.

    Does anyone know the formula I can put in a data cell to force a word such as "Information Technology" have the Technology come below Information in a chart label. Many thanks

Part and Inventory Search

Back
Top