Search:

so i have this code but it only 'shows' the dialog box.
it does not save or rather it saves as the default name, like "Presentation2"

Dim dlgSaveAs As FileDialog
Set dlgSaveAs =...

that would be:

mybook = ActiveWorkbook.Name

i want to get the labels to appear at the top of the graph from a secondary axis.

Date - this is the primary x-axis labels
Actual - this is the Actual Value
Plot Value - if the Actual Value is...

thanks.
you're right, i did not have a reference.

here is what i wanted:

I3 = OFFSET($B$1,MATCH($C$7,$B:$B,0)+(11-MONTH($C$7)),3)

the current month is in C7.
past and future months are in...

can't figure out why this is not working:

I3 = OFFSET(MATCH($C$7,$B:$B,0) + 12 - MONTH($C$7),0,1))

Col B has dates:
02/07
03/07
.
.
.

because the table shows 18 months.
back 11 months, current month and forward 6 months.

notice the formula has '-11', the next cell formula will have '-10' etc...
till the last has '+10'

this...

The 1st column in the table is date quarters:

1Q08
2Q08
3Q08
4Q08
1Q09
.
.

thanks.
that is a nice way around that.

Form = Cell.Value
Select Case Form
Case 1 MthlyDataForm_v1
MthlyDataForm_v1.Show
.
.
.

I will have several different UserForms that are similiar.
On each sheet I am going to place which UserForm is used.
(Or possibly once the sheet designs get finalized I can use existing text as a...

ok i will look around.
i definitely have enough work on this project this is not a major issue.

right now i have a label informing the user they can exit w/o saving current edits by clicking the...

close.

it allowed the Exit button to work as did Before Update and Change.

BUT the user can then leave the box without putting in the correct info.

i thought i could get around that by...

i keep getting duplicates

oh man.

ok i went into the Module section and declared the ExitFlag in one of the modules.

and initialized the ExitFlag inside the Forms Initialize event.

not working :-(

also can't i...

ok wait, i must be missing something.
remember i am in the window for the MthlyForm.

if i put

Dim ExitFlag As Boolean
ExitFlag = False

outside all the code that makes the exit flag...

there is not much here on this form.
it looks like you have the Dim as Public.
i had it up there, but the ExitFlag = False seems to have to go in each TextBox.

once i get in the textbox, the...

No that did not work.

In fact once I am in the textbox and get the msgbox about the decimals, I cannot even use the Exit button.

I can get out using the upper right 'x'.

But the decimal...

The TextBoxes on the Forms are checked for a certain number of decimal places and a msgbox appears informing the user.

The form has an EnterData button when the user has finished filling the...

i got it.

i had the code in a regular module.

then after doing some reading, i opened the form and clicked on the ViewCode and placed the code in that location.

of course it worked because...

Seems like this should work but it is not Initializing.
And I have already tried removing the 1.
Plus I have other forms so I would want to be specific about which form I am initializing?

Sub...

"An unexpected error has occurred"

No luck.

Copy the range in Excel.
In PPT I select Edit/PasteSpecial.
Then select PasteLink as Microsoft Excel Worksheet Object.

i tried that.
the recorder is picking up a regular Paste and the PasteSpecial(as a picture).

but the recorder is not picking up the PasteLink.

thanks though

I just uploaded an image of what I am copying.
If I did it right.

Well it is both.
I copy a range from a sheet, which contains cells and graphs.
Manually I can do a Paste/Link.
I may not go with a link because for each site there can be upwards of 50 slides and...

Excel spreadsheets.

Right now I am pasting as a picture:
Want to do a paste-link.

Set objMyGraph = objPPPres.Slides(intMySlideCount).Shapes.PasteSpecial

That did it.
Thanks.

ok, i have been fooling around with this and here is the problem.
The Esc key works fine to terminate the program BUT, the Excel window needs to have the focus. The program is copying from Excel...

I want the user to be able to stop running the program.

I created UserForm1 with a Cancel button:

Private Sub CancelButton_Click()
bCancelled = True
Unload UserForm1
End Sub

A form...

May have found the soultion.

Seems the problem is started by doing a Ctrl-Break.

One solution is to use at the beginning of the code:

Application.EnableCancelKey = xlDisabled

The other is...

I have been testing these all morning and no problems.
Something wierd is going on.


If I step-through or ckick the Cancel button on the message box,
it goes to the procedure that called it and...

Excel info is being pasted into PowerPoint.

I am sending this part to a few people here for a look-see.
And I want them to be able to Exit because there are a lot of files involved.
They will...

here are some links i came up with that helped me figure it out.

http://pptfaq.com/FAQ00352.htm
http://www.erlandsendata.no/english/index.php?d=envbaolecontrolpowerpoint...

well i don't know.

i did a search and have not come up with anything free.
and not even anything for $.

i would have thought MS would have a PowerPoint VBA book like they do for Excel and...

I recorded a macro to get the code but it is still not working.
Here is what I have in general:

.
.[other FSO dimensions]
.
Dim objPPApp As Object 'PowerPoint.Application
Dim objPPPres As...

Any ideas where I can get aPowerPoint 2003 VBA book?

I have not seen any books on the Microsoft site.

Thanks.

hmmm

that did work. thought i had tried it.

:-)

ok it worked.
i had to nest the 'with...' statements:

[copy from Excel]

With objPPPres
.Slides.Add(Index:=intMySlideCount, Layout:=ppLayoutBlank).Select

With...

ok i switched back to Object.
just to try it because i still could not add a slide.
and it worked.

Dim objPPApp As Object 'PowerPoint.Application
Dim objPPPres As Object ...

i do not think that will be a problem.
in fact i had established a reference to MS PP 11.0 which was the only PP reference in the list.

in fact this is what i have declared:

Dim objPPApp As...