【Excel×VBA】PowerPointを作成・テキスト・画像貼り付け・保存等色々操作してみますよっと
準備 参照設定 MicroSoftPowerPoint ○○ Object Libraryを設定
VBAを使用してパワーポイントを作成しながら構造の説明
そしてファイルを開く、テキストを入れたり場所を設定したり画像を入れたりしてみますた
実際に使用したコード
ーーーーーーーーーーーーーーーーーーーーー
Public Sub パワポ操作()
Dim 変数 As New PowerPoint.Application
変数.Visible = True
Dim プレ As PowerPoint.Presentation
Set プレ = 変数.Presentations.Add
Dim x As Long
プレ.Slides.Add Index:=1, Layout:=ppLayoutBlank
プレ.Slides(1).Shapes.AddTextbox msoTextOrientationHorizontal, 10, 10, 200, 100
プレ.Slides(1).Shapes(1).TextFrame.TextRange = "Sample"
With プレ.Slides(1).Shapes(1).TextFrame.TextRange.Font
.Size = 32
.name = "Meiryo UI"
.Bold = True
.Color = RGB(255, 0, 0)
End With
Range("G90").CurrentRegion.CopyPicture
プレ.Slides(1).Shapes.Paste
With プレ.Slides(1).Shapes(2)
.LockAspectRatio = True
.Top = 100
.Left = 200
.Width = 400
.Height = 400
End With
プレ.SaveAs Filename:=ThisWorkbook.Path & "\test.pptm"
変数.Quit
End Sub
ーーーーーーーーーーーーーーーーーーーーーー
不明点や、こういう動画作って欲しい・こうしたほうがいい
こういったやり方がある等なんでも気軽にコメント頂ければ幸いです
皆様の存在に感謝しています いつも有難う御座います
■Twitterアカウント
https://twitter.com/Simple_Program
#VBA
#Excel
#マクロ
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «【Excel×VBA】PowerPointを作成・テキスト・画像貼り付け・保存等色々操作してみますよっと», вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.