Is there a shortcut for Open Worksheet Object?
If there is not, is there a way to assign a shortcut to this?
Thanks!
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
Home » Forums » AskWoody support » Productivity software by function » MS PowerPoint and presentation apps » Shortcut: Open Worksheet Object (97)
Here is a better clarification of what I am trying to do..
Most of our powerpoint presentations aren’t presentations, but printed out pages of financial info. So I mainly use excel spreadsheets in my ppts. I am constantly right clicking and then choosing ‘Open Worksheet Object’.
I am wondering if there is a keyboard shortcut that will open the worksheet object…
I’m really not explaning myself well here!
What I am attempting to do is to find a shortcut to ‘Open Worksheet Object’ while creating a presentation.
So while I am creating the presentation I can just select the worksheet object and type the shortcut.
These presentations are actually never ran on the computer, just printed out…
I’ll try clarifying again (thank’s for being patient Catharine)
While creating presentations (printed or on-screen) I would like to try and find a shortcut for working on my excel spreadsheets which are in my powerpoint presentations.
Rather than having to click three times (in ppt 2000) to ‘open worksheet object’ I would like to select the worksheet object and then have a keyboard shortcut to ‘open worksheet object’ so that I may make whatever changes I need to make.
I think the key point here is that I am looking for a shortcut while I am creating the presentation, not while presenting the presentation…
Hi Kevin,
See the code attempt just posted.
Subsequently I looked for a way to assign a key shortcut in the PPT interface, but didn’t see it – betraying my lack of knowhow in PPT – perhaps there is no way to assign key shortcuts in PPT(?!)
An alternative might be to link the macro to a toolbar item and assign a hotkey combination to trigger it.
Gary
Hi Gary,
Actually the 3 clicks I am referring to are:
Right click on worksheet object
Click ‘Worksheet’ (or something like that)
Click ‘Open Worksheet object’
I’ts actually only 2 clicks in 97, but 3 in 2000
I do not do any excel editing in edit mode because inadvertantly that always seems to somehow or another screw up my fonts… I always (yes always) ‘open worksheet object’…
Thanks for your help into this though.. I’ve looked at the other posts and it looks like I am out of luck..
Edited by Gary Frieder on 29-Aug-01 20:16.
Awckie,
You’re giving up too fast! – since it looks like we’ve cobbled together a solution for you. Putting all the pieces together:
Okay, you don’t want Edit, you want Open – fine, we can do that:
The following amendment to the code provided by my redoubtable colleague Kevin (that means you can doubt him over and over again ) appears to exactly reproduce the three mouse clicks you’ve described:
Public Sub OpenExcelObject() Dim sld As Slide Dim sh As Shape For Each sld In ActivePresentation.Slides For Each sh In sld.Shapes If sh.Type = msoEmbeddedOLEObject Then If sh.OLEFormat.ProgID = "Excel.Sheet.8" Then sh.OLEFormat.DoVerb 2 Exit Sub End If End If Next Next End Sub
Now that we’ve got a macro to do what you need, all we need to do is make it available via key shortcuts. As WebGenie points out, this can be done by putting the item on a toolbar and assigning a key shortcut to the toolbar item – for example, I’ve now got this set up in my PPT presentation so that pressing Alt+x will open the Excel worksheet.
To keep this post from getting too long, just post back and let us know if you need instructions on where to store this macro and how to get a key shortcut for a toolbar item.
Gary
Great illustrations, Catherine!
A tip for making it easier to paste preformatted code from the Lounge (so that you don’t have to reformat it into separate lines in your code module):
Select the posted code and Copy.
Open a blank Word document and Paste.
Select the pasted code in the Word doc, and Copy again.
Go to the code module and Paste again.
Done this way, the code comes in correctly on separate lines.
Gary
“I think the key point here is that I am looking for a shortcut while I am creating the presentation, not while presenting the presentation”
Aaaahhh! Okay – now I understand . And now this is the part where I tell you that this probably requires a VBA answer
I’ve taken the liberty of posting a request for a solution on the VBA board. The moderators there will lock the thread so that answers don’t get posted on two boards.
Lets’ see what happens.
Cheers
Hi again,
The following code seems to do the trick:
Public Sub EditExcelObject() With ActivePresentation.Slides(1).Shapes(1).OLEFormat If .ProgID = "Excel.Sheet.8" Then .Activate End If End With End Sub
– this assumes that the Excel object is the first shape on the first slide – this could be modified to be more flexible for instance if you have more than one Excel object in your presentation.
-I’m working in PPT 2000 and Excel 2000 so am a bit surprised that it identifies the embedded Excel object as “8” – hmm…
You could store this macro in a code module behind your presentation, and presumably assign a keyboard shortcut for running it.
Gary
And not to be outdone by the respectable, affable and
insightful Mr. Frieder, I offer this amendment that loops till it
finds the first Worksheet:
Public Sub EditExcelObject() Dim sld As Slide Dim sh As Shape For Each sld In ActivePresentation.Slides For Each sh In sld.Shapes If sh.Type = msoEmbeddedOLEObject Then If sh.OLEFormat.ProgID = "Excel.Sheet.8" Then sh.OLEFormat.Activate exit sub End If End If Next Next End Sub
Still no success in figuring out how to put a short-cut key on a
macro. Very strange.
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.
Notifications