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