PowerPoint AppleScript

Size: px

Start display at page:

Download "PowerPoint AppleScript"

さやないりぐら
6 years ago
Views:

3 PowerPoint AppleScript PowerPoint AppleScript

4 PowerPoint AppleScript の基本 Microsoft PowerPoint 2008 Visual Basic for Applications (VBA) VBA AppleScript PowerPoint PowerPoint AppleScript VBA ( ) AppleScript Macintosh tell application "Microsoft PowerPoint" activate PowerPoint PowerPoint [ ] activate PowerPoint activate PowerPoint PowerPoint 2004 AppleScript ( PowerPoint Dictionary AppleScript PowerPoint PowerPoint text frame Word AppleScript text range Word 2004 AppleScript ( E2CF6A9DCF33/Word2004AppleScriptRef_J.pdf) Dictionary Drawing Suite text frame PowerPoint Microsoft Word text object text range (Text Suite text range ) PowerPoint 2004 AppleScript do Visual Basic 1 VBA (Microsoft Visual Basic Editor [ ] Dim ) PowerPoint X do Visual Basic PowerPoint 2004 PowerPoint 2008 VBA \ ( ) 4

5 PowerPoint 2004 AppleScript application presentation selection VBA Selection do Visual Basic Selection (Selection.ShapeRange Selection.SlideRange ) do Visual Basic result ( ) AppleScript.Selection プレゼンテーションを作成するまたは開くプレゼンテーションを作成する Visual Basic for Applications (VBA) presentation Application.Presentations.Add AppleScript make new presentation Microsoft PowerPoint make new AppleScript with properties ( ) Presentation Add VBA VBA Presentations.Add WithWindow visible AppleScript visible false ( document window visible true ) hide AppleScript (presentation Dictionary r/o ( ) ) page setup web options slide show settings Microsoft Office " " make new ( ) 5

6 VBA (Slides ) AppleScript VBA AppleScript presentation east asian line break level layout direction (PowerPoint (US) ) AppleScript / DisplayComments Drawing Suite set newpres to make new presentation tell slide 1 of newpres -- code here make new presentation slide 1 tell slide 1 既存のプレゼンテーションを開く AppleScript PowerPoint VBA Open Presentations.Open FileName:="Mac HD:Folder:Filename.ppt" AppleScript Standard Suite open open alias "Mac HD:Folder:Filename.ppt" PowerPoint VBA path AppleScript.ppt VBA ( ) Open Presentation Dim opres As Presentation, oslide As Slide Set opres = Presentations.Open(Mac HD:Folder:Filename.ppt") 6

7 With opres Set oslide =.Slides.Add(2, pplayouttext) AppleScript Microsoft Word Standard Suite open open "Mac HD:Users:yourname:Desktop:Saved Pres.ppt" set thepres to active presentation set theslide to make new slide at end of thepres with properties {layout:slide layout text slide} active presentation ( ) open application try set thepres to presentation "Saved Pres.ppt" on error open "Mac HD:Users:yourname:Desktop:Saved Pres.ppt" set thepres to active presentation end try set theslide to make new slide at end of thepres with properties {layout:slide layout text slide} スライドと図形を使用するスライドを作成するまたは挿入するスライドを作成する Visual Basic for Applications (VBA) Slides Add Layout Index 2 ActivePresentation.Slides.Add Index:=1, Layout:=ppLayoutText 7

8 AppleScript slide / color scheme layout Index AppleScript slide index AppleScript at set newslide to make new slide at active presentation with properties {layout:slide layout text slide} Dictionary Standard Suite make new at 2 new at location reference : the location at which to insert the element ( ) at end of [object] presentation AppleScript at beginning of at end of at before [some element] at after [some element] set newslidea to make new slide at beginning of active presentation with properties {layout:slide layout text slide} set newslideb to make new slide at end of active presentation with properties {layout:slide layout two objects over text} set newslidec to make new slide at before slide 2 of active presentation with properties {layout:slide layout media clip and text} slide 2 slide 2 newslidec at after slide 1 before at slide index Dictionary Microsoft PowerPoint Suite slide layout VBA pplayouttext slide layout text slide 8

9 Dictionary " " slide layout text 3 6 slide VBA AppleScript VBA slide layout pp Long ( ) pplayouttext 2 Microsoft Office Microsoft Visual Basic Editor ppslidelayout Long (2) (pplayouttext) AppleScript (slide 1 slide 2 slide 3 ) slide 3 slide 3 slide 5 VBA Name Slide1 Slide2 AppleScript name ID (VBA SlideID ) (PowerPoint ID ) AppleScript slide ID VBA Slides Collection FindBySlideID SlideID AppleScript AppleScript whose {} get first slide of active presentation whose slide ID is 1257 first element whose... Office every element whose... get every slide of active presentation whose slide ID is > {slide 1 of active presentation} ID 1 every item 1 of (get every slide of active presentation whose slide ID is 1257) --> slide 1 of active presentation 9

10 スライドを挿入する VBA InsertFromFile AppleScript do Visual Basic InsertFromFile ActivePresentation.Slides.InsertFromFile _ "Macintosh HD:Users:Shared:Sales.ppt", 2, 3, 6 do Visual Basic "ActivePresentation.Slides.InsertFromFile _ \"Macintosh HD:Users:Shared:Sales.ppt\", 2, 3, 6" \ ( ) VBA AppleScript Office 2008 スライドまたは図形を選択する Visual Basic for Applications (VBA) Dim osh as Object Set osh = ActivePresentation.Slides(4).Shapes(8) With osh.someproperty = "this".anotherproperty = "that" AppleScript (Dim) ( ) AppleScript ActivePresentation.Slides(4).Shapes(8) shape 8 of slide 4 of active presentation VBA With tell set theshape to shape 8 of slide 4 of active presentation tell theshape set some property to "this" set another property to "that" theshape 18 1 ( ) 1 tell theshape set {some property, another property} to {"this", "that"} 10

11 1 tell of AppleScript slide name VBA shape With ActiveWindow.Selection.SlideRange.Name = "MyName" With ActiveWindow.Selection.ShapeRange.Name = "MyName" VBA SlideRange ShapeRange.Selection.Slides(n) Name 1 AppleScript Microsoft PowerPoint 2004 for Mac AppleScript selection 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 active window view slide slide ID selectedslide slide index ID ( 3 ) ID set theslide to item 1 of (get every slide of active presentation whose slide ID is slideid) do Visual Basic AppleScript 11

12 1 AppleScript GetSelectedShape() ( ) GetSelectedShape() ActiveWindow.Selection.ShapeRange VBA set selectedshape to my GetSelectedShape() 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 to GetSelectedShape() set textfilepath to (path to temporary items as string) & "Shared Text File" activate set theindex to slide index of slide of view of active window set selectedslide to slide theindex of active presentation do Visual Basic "n = ActiveWindow.Selection.ShapeRange.ZOrderPosition 'write n as string to text file, replacing any text there FileNumber = FreeFile Open \"" & textfilepath & "\" For Output As #FileNumber Print #FileNumber, CStr(n) Close #FileNumber " set n to (read alias textfilepath before return) as integer set selectedshape to shape n of selectedslide return selectedshape end GetSelectedShape text box Macintosh ( ) 12

13 AppleScript do Visual Basic ZOrderPosition ZOrderPosition (AppleScript z order position) " " UI z order position 1 n shape index shape n do Visual Basic n n (CStr(n)) Macintosh [Temporary Items] textfilepath textfilepath do Visual Basic Visual Basic FreeFile Print # Close # Mac OS X [Temporary Items] "/var/tmp" Finder 3 4 AppleScript read Standard Addition (Print # ) n shape n of selectedslide Microsoft Office 2004 Office 2008 do Visual Basic スライドと図形の書式を設定する slide shape presentation color [ ] [ ] Dim opres As Presentation Dim osl As Slide Dim osh As Shape Dim colsch As ColorScheme ' Get a reference to the current active presentation Set opres = ActivePresentation 13

14 ' Do something with each slide in the presentation For Each osl In opres.slides ' Set the background color scheme of each slide to a pale aquamarine Set colsch = osl.colorscheme colsch.colors(ppbackground).rgb = RGB(222, 246, 241) ' and do something with each shape on each slide For Each osh In osl.shapes ' move it 36 points (.5 inch) to the right osh.left = osh.left + 36 Next Next AppleScript set opres to active presentation repeat with osl in (get every slide of opres) set color for (color scheme of osl) at background scheme to color {222, 246, 241} repeat with osh in (get every shape of osl) tell osh set left position to (get left position) + 36 end repeat end repeat Dim VBA object string long o s l AppleScript theslide theshape AppleScript color scheme (background scheme color fill scheme color ) get color for set color for at ( ColorScheme.Colors pp VBA ) background scheme VBA RGBColor Red-Green-Blue 3 8 (0 255) RGB Long Microsoft Office AppleScript ( Word Excel PowerPoint ) color 3 (0 255) {222, 246, 241} "Microsoft color " VBA RGB 3 VBA AppleScript 14

15 Apple AppleScript RGB color 3 16 ( ) RGB Word Excel PowerPoint Microsoft Entourage ( color ) Macintosh 3 2 ApplifyMSColor({222, 246, 241}) --> {49284, 60516, 58081} to ApplifyMSColor({r, g, b}) set r to (r ^ 2) as integer set g to (g ^ 2) as integer set b to (b ^ 2) as integer return {r, g, b} end ApplifyMSColor as integer AppleScript ^ reals ( ) E color Entourage PowerPoint (65535 ) div set r to (49285 ^ 0.5) div 1 -->222 as integer Mac OS X 10.4 (Tiger) ^ Mac OS X 10.4 as integer Mac OS X div 1 left position VBA Left Property (left position) get set left position to (get left position) + 36 repeat repeat with somevariable in somelist (somelist) every element of someobject get VBA VBA AppleScript get get can't get [whatever] 15

16 AppleScript repeat set left position of every shape of osl to every element set color for テキストを使用するテキストを選択追加変更する Microsoft PowerPoint text frame ( ) Sub AddSomeText() ' work with the currently selected shape With ActiveWindow.Selection.ShapeRange ' the shape's "text container" is the TextFrame With.TextFrame ' unless you specify otherwise,.textrange refers to ' all of the text in the text frame With.TextRange ' add some text.text = "You can add text to shapes" ' or somewhat more compactly With ActiveWindow.Selection.ShapeRange TextFrame.TextRange.Text = "This works too" End Sub ActiveWindow.Selection.ShapeRange AppleScript Microsoft Office 2004 GetSelectedShape() 16

17 --get the selected shape via the handler set selectedshape to my GetSelectedShape() --paste it in below! tell selectedshape tell its text frame --needs 'its'! tell its text range --needs 'its' --unless noted, refers to all --the text in the text frame set content to "You can add text to shapes." --or, more compactly set content of text range of text frame of selectedshape to "This works too!" tell Visual Basic for Applications (VBA) With of tell of text frame text range 2 ( ) tell whose (where its) its 2 text frame its text range 17

18 図形でテキストフレームがサポートされるようにする shape Sub TextCaveats() With ActiveWindow.Selection.ShapeRange On Error Resume Next ' does it have a text frame? If.HasTextFrame Then ' does the text frame have any text? ' see if there's any there ' before trying to alter it If.TextFrame.HasText Then.TextFrame.TextRange.Text = "And here you are, safely" End If End If End Sub AppleScript --get the selected shape via the handler set selectedshape to my GetSelectedShape() --paste it in below! try --to avoid error messages if shape --has no text frame or no text tell selectedshape if has text frame then --does it have one? --if so, does the text frame --have any text? if has text of its text frame then --needs 'its' set content of text range of its text frame to "And here you are safely." end if end if end try 18

19 GetSelectedShape IsSafeToTouch(selectedShape) selectedshape true ( on error false ) --get the selected shape via the handler set selectedshape to my GetSelectedShape() --paste it in below! set check to my IsSafeToTouch(selectedShape) if check then set content of text range of selectedshape's text frame to "Different text depending on context." end if on IsSafeToTouch(selectedShape) try --to avoid error messages if shape has no --text frame or no text tell selectedshape if has text frame then --does it have one? --if so, does the text frame --have any text? if has text of its text frame then --needs 'its' return true else return false end if else return false end if on error return false end try end IsSafeToTouch 19

20 テキストの書式を設定して文字を選択する図形のテキストの書式を設定する AppleScript Visual Basic For Applications (VBA) Sub TextFormatting() With ActiveWindow.Selection.ShapeRange ' work with all the text in the shape With.TextFrame.TextRange ' Change font formatting With.Font.Name = "Arial".Size = 24 ' make it red.color.rgb = RGB(255, 0, 0).Bold = True ' and so on End Sub AppleScript --get the selected shape via the handler set selectedshape to my GetSelectedShape() -- paste it in! tell text range of text frame of selectedshape tell its font set {font name, font size, font color, bold} to {"Arial", 24, {255, 0, 0}, true} AppleScript font ( 4 ) 1 tell of of font 20

21 図形の文字を選択する UI [ ] [ ] 4 character MsgBox MsgBox 1 2 word 3 RGB Long Sub WorkWithPartOfText() Dim x As Long, g As Long With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange ' access one character at a time For x = 1 To.Characters.Count MsgBox.Characters(x) Next ' make every second character blue ' if x divided by 2 = x mod 2... If x / 2 = x \ 2 Then.Characters(x).Font.Color.RGB = RGB(0, 0, 255) End If ' or a word at a time: g = 0 For x = 1 To.Words.Count MsgBox.Words(x) 'make every word a different shade g = g If g > 255 Then g = 0.Words(x).Font.Color.RGB = RGB(0, g, 100) Next ' or a "run" at a time ' every change in formatting starts a new run ' if the number of runs in a textrange is 1, ' you know that all of the text ' in the range is formatted identically. For x = 1 To.Runs.Count ' For each run, display the text and the Long that ' represents the text's RGB color MsgBox (.Runs(x).Text & " - " &.Runs(x).Font.Color.RGB) Next 21

22 ' or arbitrary selections of text ' 6 characters starting at position 3, for example MsgBox.Characters(3, 6) AppleScript --get the selected shape via the handler set selectedshape to my GetSelectedShape() -- paste it in below! tell text range of text frame of selectedshape repeat with i from 1 to count (characters) display dialog (get content of character i) --make every second character blue if i / 2 = i div 2 then set font color of font of character i to {0, 0, 255} end if end repeat set g to 0 repeat with i from 1 to count words display dialog (get content of word i) --make every word a different shade set g to g if g > 255 then set g to 0 set font color of font of word i to {0, g, 100} end repeat set AppleScript's text item delimiters to {", "} repeat with i from 1 to (count text flows) set therun to text flow i display dialog (get content of therun) & " - {" & font color of font of therun & "}" end repeat set AppleScript's text item delimiters to {""} display dialog (text 3 thru 8 of (get content)) repeat x i x y animation behavior property effect Microsoft PowerPoint Dictionary Expected variable name or property but found application constant or consideration AppleScript 22

23 display dialog text frame " " content get Can't make content of text frame... into a string PowerPoint Unicode Mac OS X 10.3 (Panther) display dialog Unicode as string Unicode get VBA MsgBox AppleScript display dialog character word text flow content display dialog VBA Words(Index) Text TextRange Applescript get word i VBA Character Word Run MsgBox ( Debug.Print) MsgBox display dialog (display dialog Mac OS X 10.4 (Tiger) ) AppleScript VBA (Long) 3 display dialog {0, 200, 100} as string & AppleScript "" {0, 200, 100} ", " 0, 200, 100 {", "} {0, 100, 200} display dialog {""} Macintosh [ ] ({""} {", "} ) 23

24 スライドマスタとドキュメントプロパティマスタ slide 1 shape Visual Basic for Applications (VBA) Sub AddShapeOnMaster() With ActiveWindow.Selection.SlideRange ' Make a new shape in the slide's Master instead of the slide itself Call.Master.Shapes.AddShape(msoShapeRectangle, 10, 20, 30, 40) End Sub AppleScript --get the selected slide make sure slide pane is active set theindex to slide index of slide of view of active window set selectedslide to slide theindex of active presentation --no 'master' property of slide, get slide master of presentation set themaster to slide master of active presentation make new shape at themaster with properties {auto shape type: autoshape rectangle, left position:10, top:20, width:30, height:40} ( ) slide of view Dictionary VBA.Master slide master presentation slide master ( ) active presentation Microsoft Visual Basic Editor Shape AddShapes AutoShape MsoAutoShapeType 4 (Left Top Width Height) VBA 24

25 Dictionary (Drawing Suite) shape auto shape type ( / ) (long ) Visual Basic Editor MsoAutoShapeType autoshape rectangle shape shape type auto shape type autoshape rectangle make new shape left position top width height Microsoft PowerPoint 2004 for Mac UI " " 3 Microsoft Windows PowerPoint VBA Macintosh PowerPoint VBA AppleScript Macintosh VBA VBA ActivePresentation.ApplyTemplate (FileName) apply template (file name ) ドキュメントプロパティ PowerPoint Microsoft Office Sub ListBuiltInProperties() Dim x As Long On Error Resume Next Debug.Print "BEGIN ====================================" With ActivePresentation.BuiltInDocumentProperties For x = 1 To.Count Debug.Print "Property Number: " & CStr(x) Debug.Print "Property Name: " &.Item(x).Name Debug.Print "Property Value: " &.Item(x).Value Next Debug.Print "END =====================================" End Sub 25

26 AppleScript set thelog to "BEGIN =============================" & return set alldocprops to every document property of active presentation repeat with i from 1 to count alldocprops set thedocprop to item i of alldocprops set thelog to thelog & "Property Number: " & i & return set thelog to thelog & "Property Name: " & name of thedocprop & return set thelog to thelog & "Property Value: " & value of thedocprop & return end repeat set thelog to thelog & "END =========================" & return thelog AppleScript " " document property AppleScript application (30 ) Microsoft Office Suite Office UI VBA Template DocumentProperty With ActivePresentation MsgBox.BuiltInDocumentProperties("Template").Value AppleScript set templatevalue to get value of document property "Template" of active presentation if templatevalue missing value then display dialog templatevalue else display dialog "There is no Template: this presentation is " & "based on a Blank New Presentation" with icon 2 end if template missing value ( ) VBA MsgBox AppleScript 26

27 Template Author / VBA / With ActivePresentation.BuiltInDocumentProperties("Author") = "Your Name Here" ( Office Microsoft Entourage [ ] Author ) AppleScript set value of document property "Author" of active presentation to "Phyllis Harris, Manager" [ ] [ ] [ ] PowerPoint AppleScript のまとめ Visual Basic for Applications (VBA) AppleScript Dictionary PowerPoint Dictionary Microsoft PowerPoint Word Excel 27

fx-9860G Manager PLUS_J

fx-9860G Manager PLUS_J fx-9860g J fx-9860g Manager PLUS http://edu.casio.jp k 1 k III 2 3 1. 2. 4 3. 4. 5 1. 2. 3. 4. 5. 1. 6 7 k 8 k 9 k 10 k 11 k k k 12 k k k 1 2 3 4 5 6 1 2 3 4 5 6 13 k 1 2 3 1 2 3 1 2 3 1 2 3 14 k a j.+-(),m1