パワーポイントＶＢＡ
2010.03.29 (月) 17:04
ugnag
とりあえず、備忘録としてまとめ。
スライドの数：
ActivePresentation.Slides.count
現在表示中のスライドインデックス（1から始まる）：
ActiveWindow.Selection.SlideRange.SlideIndex
テキストボックスの位置調整：
ActiveWindow.Selection.SlideRange.Shapes(1).Select
ActiveWindow.Selection.ShapeRange.Top = Val(txTop)
ActiveWindow.Selection.ShapeRange.Left = Val(txLeft)
ActiveWindow.Selection.ShapeRange.Width = Val(txWidth)
テキストボックスのフォント変更：
ActiveWindow.Selection.SlideRange.Shapes(1).Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
text = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.text
textLength = Len(text)
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=textLength).Select
ActiveWindow.Selection.TextRange.Font.NameAscii = "ＭＳ 明朝"
ActiveWindow.Selection.TextRange.Font.NameFarEast = "ＭＳ 明朝"
ActiveWindow.Selection.TextRange.Font.size = Val(txFontSize.Value)
テキストボックスの内容を行で分解：
text = Replace(text, vbCr & vbLf, Chr(11))
lines = Split(text, Chr(11))
指定スライドへ移動：
ActiveWindow.View.GotoSlide ix
もっといい方法があるのかもしれないが、とりあえずこれでも動くようだ。
[7] beginning...
[1] comments (3)
-
[7] << CSV解析スクリプト
[9] スクロール対応テーブル(javascript) >>
[0] [top]