• MacTech Network:
  • Tech Support
  • |
  • MacForge.net
  • |
  • Apple News
  • |
  • Register Domains
  • |
  • SSL Certificates
  • |
  • iPod Deals
  • |
  • Mac Deals
  • |
  • Mac Book Shelf

MAC TECH

  • Home
  • Magazine
    • About MacTech in Print
    • Issue Table of Contents
    • Subscribe
    • Risk Free Sample
    • Back Issues
    • MacTech DVD
  • Archives
    • MacTech Print Archives
    • MacMod
    • MacTutor
    • FrameWorks
    • develop
  • Forums
  • News
    • MacTech News
    • MacTech Blog
    • MacTech Reviews and KoolTools
    • Whitepapers, Screencasts, Videos and Books
    • News Scanner
    • Rumors Scanner
    • Documentation Scanner
    • Submit News or PR
    • MacTech News List
  • Store
  • Apple Expo
    • by Category
    • by Company
    • by Product
  • Job Board
  • Editorial
    • Submit News or PR
    • Writer's Kit
    • Editorial Staff
    • Editorial Calendar
  • Advertising
    • Benefits of MacTech
    • Mechanicals and Submission
    • Dates and Deadlines
    • Submit Apple Expo Entry
  • User
    • Register for Ongoing Raffles
    • Register new user
    • Edit User Settings
    • Logout
  • Contact
    • Customer Service
    • Webmaster Feedback
    • Submit News or PR
    • Suggest an article
  • Connect Tools
    • MacTech Live Podcast
    • RSS Feeds
    • Twitter

Moving from Microsoft Office VBA to AppleScript:
MacTech's Guide to Making the Transition

Introduction  |  Table of Contents

Page Prev and Page Next buttons at bottom of the page.

Would you like a hard copy
or PDF of this Guide?

You can get a hard copy sent to you
AND download a PDF now ($19.95)
, or

... just download a PDF ($9.95).

Either way, you get a complimentary
MacTech Magazine Subscription

courtesy of the
Microsoft Mac Business Unit


 

  Magazine Reg. Price:  $50.00 value  
  Guide Reg. Price:  $40.00 value  
  You Save:  over $80.00!  

April, 2007
Page 96



For now, as an alternative, to get the selected slide, this works, if you first click anywhere in the slide pane to make it the active pane:

tell application "Microsoft PowerPoint"

     set theIndex to slide index of slide of view ¬

          of active window

     set selectedSlide to slide theIndex of active presentation

     set slideID to slide ID of selectedSlide

end tell

The slide of the view of the active window will be your selected slide as long as you are not in Slide Sorter View (which does not have any single slide displayed as a slide property), and as long as you first click somewhere in the Slide pane to make it the active pane if you are in Normal View. Or else switch to Slide View, where it always works. You'll need to dispense with naming the slide (since you can't) and use the slide ID instead.

If you are not going to be moving slide positions around, then just calling selectedSlide will find it later in the script. But to be safer, since that is a reference to the slide by index and the index may well change, get the slide ID now (as in the third line above) and then use it to find your slide later, just as we did in the previous section:

      set theSlide to item 1 of (get every slide of active presentation ¬

             whose slide ID is slideID)

But there doesn't seem to be any way to get the selected shape on a slide (unless it's the only shape, of course). While waiting for the next version to hopefully come up with a selection property, even do Visual Basic wouldn't at first appear to be much use since it cannot return a result to AppleScript.

Since this problem would put so many PowerPoint macros out of bounds I have come up with a workaround as a way to get past that first line of a macro that will otherwise convert nicely to AppleScript. I have made it as a handler (subroutine) called GetSelectedShape() because you are going to need it very frequently for now (PowerPoint 2004, that is), including in many other examples in this chapter. Just keep GetSelectedShape() handy in a script library, and paste it in to the bottom of every script that needs to work with a selected shape.

You call it by entering the line:

set selectedShape to my GetSelectedShape()

whenever you need it (for now, in PPT 2004), to take the place of any VBA line that gets the selected shape or assigns a variable to ActiveWindow.Selection.ShapeRange. Here it is in action:

tell application "Microsoft PowerPoint"

     set selectedShape to my GetSelectedShape() --calls the handler below

     -- test only:

     set theText to (content of text range of text frame of selectedShape)

     -- enter rest of script after trying the test and removing the line above

end tell

 

to GetSelectedShape()

     set textFilePath to (path to temporary items as string) & "Shared Text File"

     tell application "Microsoft PowerPoint"



< Previous Page Next Page>
 
MacTech Only Search:
Community Search:

 
 
 

 
 
 
 
 
  • SPREAD THE WORD:
  • Slashdot
  • Digg
  • Del.icio.us
  • Reddit
  • Newsvine
  • Generate a short URL for this page:



MacTech Magazine. www.mactech.com
Toll Free 877-MACTECH, Outside US/Canada: 805-494-9797
MacTech is a registered trademark of Xplain Corporation. Xplain, "The journal of Apple technology", Apple Expo, Explain It, MacDev, MacDev-1, THINK Reference, NetProfessional, Apple Expo, MacTech Central, MacTech Domains, MacNews, MacForge, and the MacTutorMan are trademarks or service marks of Xplain Corporation. Sprocket is a registered trademark of eSprocket Corporation. Other trademarks and copyrights appearing in this printing or software remain the property of their respective holders.
All contents are Copyright 1984-2010 by Xplain Corporation. All rights reserved. Theme designed by Icreon.
 
Nov. 20: Take Control of Syncing Data in Sow Leopard' released
Nov. 19: Cocktail 4.5 (Leopard Edition) released
Nov. 19: macProVideo offers new Cubase tutorials
Nov. 18: S Stardom anounces Safe Capsule, a companion piece for Apple's
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live
Nov. 17: Ableton releases Max for Live