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?
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...
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?
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 _...
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?
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...
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
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...
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
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...
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...
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...
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
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...
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
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.