Kobe University Repository : Kernel タイトル Title 著者 Author(s) 掲載誌 巻号 ページ Citation 刊行日 Issue date 資源タイプ Resource Type 版区分 Resource Version 権利 Rights DOI パワーポイントの VBA 機能を利用したデジタル教材による英語授業活性化の試み (Enhancing English Language Class Activities by Using VBA Script of PowerPoint) 加藤, 雅之 神戸大学国際コミュニケーションセンター論集,8:13-24 2011 Departmental Bulletin Paper / 紀要論文 publisher JaLCDOI 10.24546/81003807 URL http://www.lib.kobe-u.ac.jp/handle_kernel/81003807 PDF issue: 2019-09-26
AV 2 PPT 22 108 2011 PPT PPT VBA Visual BASIC for Applications VBA (p.110) punctuation (p.126) VBA Microsoft Windows.exe Visual Basic Microsoft Office (Excel, Access, Word, PowerPoint Office Visual Basic Office VBA VBA PPT module Sub 1 masakato@kobe-u.ac.jp 2 PPT Office2007-13-
VBA Dim t As Single --------------------------------------------------------------------------------------------------------------------- Sub Watch1() Sub Watch1 MsgBox (Time) Message Box End Sub Sub ---------------------------------------------------------------------------------------------------------------------- Sub Watch2() MsgBox (Timer) Message Box Timer 0 t = Timer Timer End Sub ---------------------------------------------------------------------------------------------------------------------- Sub Watch3() MsgBox (Int(Timer - t)) Timer t Watch2 End Sub Watch3 Int Sub 0-14-
VBA Excel PPT David M. Markovits 2004 3 2010 108 40 3 3 VBA http://www.loyola.edu/edudept/powerfulpowerpoint/ -15-
2010 4 p.110 4 2011-16-
fetch vice -17-
fetch vice VBA PPT 10 10 10 VBA fetch vice ' VBA Sub fetch() SlideNumber = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex ' SlideNumber -18-
'3 SlideNumber=3 ParaNumber = ActivePresentation.Slides(SlideNumber+1).Shapes("text1").TextFrame.TextRange.Paragraphs.Count ' SlideNumber 3 ParaNumber 10 ActivePresentation.SlideShowWindow.View.Slide.Shapes("text1").TextFrame.TextRange.Text = ActivePresentation.Slides(SlideNumber + 1).Shapes("text1").TextFrame.TextRange.Paragraphs(Int(Rnd * ParaNumber) + 1).Text ' "text1" 'Rnd (0 0.999...) 0 9.9999... Int() 0, 1, 2,...9 0 1 10 End Sub Sub vice() message = ActivePresentation.SlideShowWindow.View.Slide.Shapes("text1"). TextFrame.TextRange.Text ' "text1" message message = LCase(message) 'message message message = Replace(message, " ", "") 'Replace, " ", " ") message = Replace(message, ",", "") 'Replace, " ", " "), message = Replace(message, ".", "") 'Replace, " ", " "). message = Replace(message, ";", "") 'Replace, " ", " ") ; message = Replace(message, "'", "") 'Replace, " ", " ") ' message = Replace(message, "-", "") 'Replace, " ", " ") - message = Replace(message, ";", "") 'Replace, " ", " "), message = Replace(message, ":", "") 'Replace, " ", " ")? message = Replace(message, "?", "") ' message ActivePresentation.SlideShowWindow.View.Slide.Shapes("text2").TextFrame.TextRange.Text = message ' "text2" vice message End Sub eraser -19-
eraser Sub blank2() ActivePresentation.SlideShowWindow.View.Slide.Shapes("text2").TextFrame.TextRange.Font.Color.RGB = vbblack 'text2 wordcount = ActivePresentation.SlideShowWindow.View.Slide. Shapes("text1").TextFrame.TextRange.Words.Count 'text1 wordcount 20. ActivePresentation.SlideShowWindow.View.Slide.Shapes("text2").TextFrame.TextRange.Text = ActivePresentation.SlideShowWindow.View.Slide.Shapes("text1").TextFrame.TextRange.Text 'text1 text2 For i = 1 To wordcount ActivePresentation.SlideShowWindow.View.Slide.Shapes("text2").TextFrame.TextRange.Words(i).Chara cters(1).font.color.rgb = vbwhite Next i ' X wordcount ' i 'Characters(1) vbwhite ( 20 )20 End Sub -20-
WPM Word Per Minute fetch Start Finish WPM WPM WPM Finish WPM Sub StopWatch1() startsplit = Timer - t 'Start StopWatch1 wordcount = ActivePresentation.SlideShowWindow.View.Slide.Shapes("text1").TextFrame.TextRange.Words.Count 'text1 wpm = Int(wordcount / Round(startsplit, 0) * 60) ' 60 wpm ActivePresentation.SlideShowWindow.View.Slide.Shapes("finish").TextFrame.TextRange.Text = wpm 'Finish wpm ActivePresentation.SlideShowWindow.View.Slide.Shapes("finish").Fill.ForeColor.RGB = vbred 'Finish ActivePresentation.Slides(15).Shapes("Text1").TextFrame.TextRange.Text = Text + Chr$(13) + "" & wpm ' 15 text1 wpm End Sub -21-
PPT 2012 10 1 II 1 43 II 1 42 Mikulecky and Jeffries, More Reading Power, 2nd Edition (Pearson/Longman, 2004) PPT vice/ eraser/ mixer/ wpm PPT PPT - Moodle : 19 (52.78 %) 15 (38.46 %) - PowerPoint : 4 (11.11 %) 6 (15.38 %) - PowerPoint : 16 (44.44 %) 19 (48.72 %) - PowerPoint : 3 (8.33 %) 5 (12.82 %) - PowerPoint : - Thinking Skills: - Reading Faster: 16 (44.44 %) 20 (51.28 %) 17 (47.22 %) 16 (41.03 %) 21 (58.33 %) 27 (69.23 %) - : 1 (2.78 %) 7 (17.95 %) - : - : - : 4 (11.11 %) 1 (2.78 %) 3 (7.69 %) 13 (33.33 %) 10 (27.78 %) 14 (35.90 %) - : 0 2 (5.13 %) -22-
PPT vice eraser VBA wpm JACET 2011.11 VBA VBA http://www.solac.kobe-u.ac.jp/~masakato/2011vba/index.html (2011) Marcovits, D. (2004). Powerful PowerPoint for Educators: Using Visual Basic for Applications to Make PowerPoint Interactive. Westport: Libraries Unlimited. -23-
Abstract This article presents an enhanced usage of Microsoft PowerPoint (PPT hereafter) in English classrooms at college. PowerPoint has played a crucial role in classroom as well as anywhere to succinctly make an effective presentation with its strong visual properties. Flexibility to handle multimedia materials such as images, videos and sounds is what makes it sometimes crucial in foreign language teaching as well. Still there is much to be explored in PPT. Several tasks like sentences with blanks and jumbled word order suggested in Isoda (2011) have been converted to a digital PPT version enhanced with VBA (Visual Basic for Applications) program scripts and put into practice in my English classes. As is abundantly illustrated in Marcovits (2004), VBA programs can make what otherwise cannot be achieved in PPT in a dramatic way: Keeping the record of the input; Make images appear and disappear at the teacher s will; Time keeping function; Generation of randomly selected sentences, and so on. As a result it makes it possible that students can solve problems with the results recorded, which could be emailed to the teacher manually. And the wpm (words per minute) related slide can also be developed which measure the reading speed with the function of recording the wpm automatically. Students feedback from this Fall semester s classes of 2011, which suggests a further review of the programs, concludes the article. -24-