ugnagブログ

たいした内容はありません。思いつきで書いているだけ。
開発日記がメインかな。

<< CSV解析スクリプト | main | スクロール対応テーブル(javascript) >>

パワーポイントVBA

パワーポイントのオブジェクトはわかりにくい。
とりあえず、備忘録としてまとめ。


スライドの数:
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 = "MS 明朝"
ActiveWindow.Selection.TextRange.Font.NameFarEast = "MS 明朝"
ActiveWindow.Selection.TextRange.Font.size = Val(txFontSize.Value)


テキストボックスの内容を行で分解:
text = Replace(text, vbCr & vbLf, Chr(11))
lines = Split(text, Chr(11))

指定スライドへ移動:
ActiveWindow.View.GotoSlide ix



もっといい方法があるのかもしれないが、とりあえずこれでも動くようだ。
プログラム・開発(その他開発) | comments (2) | -

Comments

スーパーコピーブランド ドルガバ vネックtシャツ | 2021/04/19 12:59 PM
ブランドコピーブランド専門店
ぜひ一度のブランドコピーブランド品をお試しください。
驚きと満足を保証できます。
ご利用を心からお待ちしております。
営業時間: ご注文はオンラインにて年中無休24時間受付けております。
スーパーコピーブランド ドルガバ vネックtシャツ https://www.copy2021.com/product/detail/19839.htm
スーパーコピーブランド mcm ヴィンテージ | 2021/04/25 10:21 AM
シャネル時計コピー
大人気のプラダブランドコピーがついてさらに進化して登場しました!
プラダコピー海外セレブから火がつき、
今や一人一つ状態の驚愕人気発的人気のこちらのプラダコピー激安代引き販売!
プラダブランドコピー正規品と同じな革、
金具を使って,一般の方が見て絶対にコピーと分からない!
スーパーコピーブランド mcm ヴィンテージ https://www.japan456.com/product/detail-6575.html

Comment Form

本文に書いて下さい
本文にh抜きで書いて下さい