View Single Post
I also have keyboard assignments to a simple OmniGraffle Zoom OUT (zooms a bit further out on each keypress)

Code:
property pTitle : "OG Zoom OUT"
property pFactor : 20

tell application id "OGfl"
	tell front window
		set dblZoom to zoom - (pFactor / 100)
		if dblZoom < 0.05 then set dblZoom to 0.05
		set zoom to dblZoom
	end tell
end tell
and a corresponding Zoom IN

Code:
property pTitle : "OG Zoom IN"
property pFactor : 20

tell application id "OGfl"
	tell front window to set zoom to (zoom + pFactor / 100)
end tell