Here is a script dedicated to Numbers.
You will find explanations in French and English at the beginning.
CAUTION :
it requires the installation of a Unix command file which gives us the ability to check if a modifier key is depressed.
During my tests, only shift or fn keys were correctly detected.
Maybe it was because I did my tests in the AppleScript Editor.
I choose the fn key which, as far as I know, is not used to define the area to save.
--{code}
--[SCRIPT subset_of_numbers_doc_to_jpeg]
(*
Télécharger getModKey.zip depuis
http://allancraig.net/index.php?option=com_docman&Itemid=100
Décompacter puis déplacer le fichier getModKey dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:UnixBins:
Il vous faudra peut-être créer le dossier UnixBins.
Détails complémentaires dans :
http://macscripter.net/viewtopic.php?id=33652
Enregistrer le script en tant que Script : subset_of_numbers_doc_to_jpeg.scpt
déplacer le fichier ainsi créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:Applications:Numbers:
Il vous faudra peut-être créer le dossier Numbers et peut-être même le dossier Applications.
Ouvrir un document Numbers et afficher la feuille dont une portion doit être enregistrée dans un fichier jpeg.
Aller au menu Scripts , choisir Numbers puis choisir “subset_of_numbers_doc_to_jpeg”
Le script affiche la feuille au format PDF dans Aperçu.
Sélectionnez la zone à enregistrer puis pressez la touche fn.
Le script copie la sélection dans le Presse-papiers, ferme le PDF complet,
crée un nouveau PDF à partir du Presse-papiers
puis ouvre le dialogue Enregistrer au format jpeg.
Il restera à définir le nom et la destination du fichier.
--=====
L’aide du Finder explique:
L’Utilitaire AppleScript permet d’activer le Menu des scripts :
Ouvrez l’Utilitaire AppleScript situé dans le dossier Applications/AppleScript.
Cochez la case “Afficher le menu des scripts dans la barre de menus”.
Sous 10.6.x,
aller dans le panneau “Général” du dialogue Préférences de l’Éditeur Applescript
puis cocher la case “Afficher le menu des scripts dans la barre des menus”.
--=====
Download getModKey.zip from
http://allancraig.net/index.php?option=com_docman&Itemid=100
Expand it then move the getModKey file into the folder
<startupVolume>:Users:<yourAccount>:UnixBins:
Maybe you would have to create the folder UnixBins.
Details available in :
http://macscripter.net/viewtopic.php?id=33652
Save the script as a Script: subset_of_numbers_doc_to_jpeg.scpt
Move the newly created file into the folder:
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:Numbers:
Maybe you would have to create the folder Numbers and even the folder Applications by yourself.
Open a Numbers document and display the sheet whose a subset must be saved in a jpeg file.
Go to the Scripts Menu, choose Numbers, then choose “subset_of_numbers_doc_to_jpeg”
The script display the sheet in a Preview's PDF window.
Select the area to save then press the fn key.
The script copy the selected area in the clipboard, close the full PDF,
create a new PDF from the clipboard's contents
then open a dialog to Save as jpeg.
Define the name and the storage location.
--=====
The Finder’s Help explains:
To make the Script menu appear:
Open the AppleScript utility located in Applications/AppleScript.
Select the “Show Script Menu in menu bar” checkbox.
Under 10.6.x,
go to the General panel of AppleScript Editor’s Preferences dialog box
and check the “Show Script menu in menu bar” option.
--=====
Yvan KOENIG (VALLAURIS, France)
2011/11/15
*)
--=====
on run
local nomFenetre, nbw
(*
Check that the Unix command file getModKey is available in the folder <startupVolume>:Users:<yourAccount>:UnixBins: *)
set flPth to ("" & (path to home folder) & "UnixBins:")
tell application "System Events" to set maybe to exists disk item (flPth & "getModKey")
if not maybe then
if not my parleAnglais() then
error "Please, install “getModKey” in the folder" & return & "“" & flPth & "” !"
else
error "Veuillez installer « getModKey » dans le dossier « " & flPth & " » !"
end if
end if
set flPth to quoted form of POSIX path of (flPth & "getModKey")
tell application "Numbers" to activate
tell application "System Events" to tell application process "Numbers"
(*
Get the name of the frontmost standard window
so that we will not 'speak' to an inspector or to the Find dialog *)
set nomFenetre to name of first window whose subrole is "AXStandardWindow"
keystroke "p" using {command down}
(*
Wait the availability of the Print sheet *)
tell windownomFenetre
repeat until exists sheet 1
delay 0.2
end repeat
tell sheet 1
click first menu button
click first menu item of menu 1 of first menu button
end tell -- sheet
end tell -- window
end tell -- System Events
tell application "Preview" to activate
tell application "System Events" to tell application process "Preview"
set nbw to count of every window
repeat while nbw = (count windows)
delay 0.2
end repeat
(*
Trigger the menu item Tools > Selection Tool *)
keystroke "3" using {command down}
end tell -- System Events
(*
Now, select the area which must be saved in a jpeg file *)
(*
Thanks to the command getModKey, loop until the fn key is depressed *)
repeat
delay 0.2
if (do shell script flPth) = "131072" then exit repeat
end repeat
(*
The fn key was depressed so we may copy the defined area to the clipboard *)
tell application "Preview" to activate
tell application "System Events" to tell application process "Preview"
(*
Empty the clipboard. So we will be able to check that the copy task is achieved *)
set the clipboard to ""
(*
Copy to clipboard *)
keystroke "c" using {command down}
(*
Loop waiting for the achievement of the Copy task *)
repeat
delay 0.2
try
the clipboardas «class PDF »
exit repeat (* Exit when the task is achieved *)
end try
end repeat
set nbw to countwindows
(*
Close the PDF window *)
keystroke "w" using {command down}
(*
Wait the achievement of the Close task *)
repeat while nbw = (count windows)
delay 0.2
end repeat
set nbw to countwindows
(*
Create New PDF from the clipboard *)
keystroke "n" using {command down}
(*
Wait the availability of the new PDF window *)
repeat while nbw = (count windows)
delay 0.2
end repeat
(*
Get the name of the new window *)
set nomFenetre to name of window 1 --(first window whose subrole is "AXStandardWindow")
keystroke "s" using {command down}
(*
Wait the availability of the Save sheet *)
repeat until exists sheet 1 of window nomFenetre
delay 0.2
end repeat
tell sheet 1 of window nomFenetre
-- properties of every UI elements
tell group 1
click first pop up button
delay 0.2
-- properties of every menu item of menu 1 of first pop up button
clickmenu item "JPEG" of menu 1 of first pop up button
delay 0.2
end tell -- group
-- click button 1 (* Click in the Save button *)
end tell -- sheet
end tell -- System Events
end run
--=====
on parleAnglais()
local z
try
tell application "Numbers" to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
--[/SCRIPT]
--{code}
Of course, thanks to FastScripts, we may link a shortcut to the script.
Yvan KOENIG (VALLAURIS, France) mardi 15 janvier 2011 19:04:38
iMac 21”5, i7, 2.8 GHz, 4 Gbytes, 1 Tbytes, mac OS X 10.6.8 and 10.7.2
My iDisk is : <http://public.me.com/koenigyvan>
Please : Search for questions similar to your own before submitting them to the community
