[Презентация] Sub CreatePresentation() Dim pptApp As Object Dim pptPres As Object Dim slideIndex As Integer ' Создать новое приложение PowerPoint Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = True ' Создать новую презентацию Set pptPres = pptApp.Presentations.Add ' Слайд 1 With pptPres.Slides.Add(1, ppLayoutTitle) .Shapes(1).TextFrame.TextRange.Text = "Правила, обязательные для всех" .Shapes(2).TextFrame.TextRange.Text = "Беседа-диалог о правилах поведения в общественных местах" End With ' Слайд 2 With pptPres.Slides.Add(2, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Цели и задачи классного часа" .Shapes(2).TextFrame.TextRange.Text = "— Прививать этические нормы поведения в обществе;" & vbCrLf & _ "— Воспитывать культуру речи, поведения в общественных местах; уважение к личности." End With ' Слайд 3 With pptPres.Slides.Add(3, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Ход классного часа" .Shapes(2).TextFrame.TextRange.Text = "Обсуждение проблемы: «Культура поведения в общественных местах»" End With ' Слайд 4 With pptPres.Slides.Add(4, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Учитель:" .Shapes(2).TextFrame.TextRange.Text = "Ребята, посчитайте, со сколькими людьми вы встречаетесь каждый день." End With ' Слайд 5 With pptPres.Slides.Add(5, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Дома" .Shapes(2).TextFrame.TextRange.Text = "Вы общаетесь с родителями, братьями и сестрами, с соседями." End With ' Слайд 6 With pptPres.Slides.Add(6, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "В школе" .Shapes(2).TextFrame.TextRange.Text = "С учителями, школьными товарищами, библиотекарем, читателями." End With ' Слайд 7 With pptPres.Slides.Add(7, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "В магазине" .Shapes(2).TextFrame.TextRange.Text = "С продавцами, кассирами, незнакомыми людьми." End With ' Слайд 8 With pptPres.Slides.Add(8, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "На улице" .Shapes(2).TextFrame.TextRange.Text = "С прохожими, старыми, молодыми, взрослыми, сверстниками." End With ' Слайд 9 With pptPres.Slides.Add(9, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Вывод" .Shapes(2).TextFrame.TextRange.Text = "Человек находится в постоянном общении со знакомыми и незнакомыми людьми." End With ' Слайд 10 With pptPres.Slides.Add(10, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Важно помнить!" .Shapes(2).TextFrame.TextRange.Text = "Культура поведения — это основа уважения к окружающим."

Бекболот Касымжан уулу

Автор Презентации

Не подходит Презетация?

Создайте свою быстро и легко. Используйте нейросети, готовые шаблоны и голосового ИИ-помощника

Транскрипция презентации

Слайд 1: Sub CreatePresentation() Dim pptApp As Object Dim pptPres As Object Dim slideIndex As Integer ' Создать новое приложение PowerPoint Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = True ' Создать новую презентацию Set pptPres = pptApp.Presentations.Add ' Слайд 1 With pptPres.Slides.Add(1, ppLayoutTitle) .Shapes(1).TextFrame.TextRange.Text = "Правила, обязательные для всех" .Shapes(2).TextFrame.TextRange.Text = "Беседа-диалог о правилах поведения в общественных местах" End With ' Слайд 2 With pptPres.Slides.Add(2, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Цели и задачи классного часа" .Shapes(2).TextFrame.TextRange.Text = "— Прививать этические нормы поведения в обществе;" & vbCrLf & _ "— Воспитывать культуру речи, поведения в общественных местах; уважение к личности." End With ' Слайд 3 With pptPres.Slides.Add(3, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Ход классного часа" .Shapes(2).TextFrame.TextRange.Text = "Обсуждение проблемы: «Культура поведения в общественных местах»" End With ' Слайд 4 With pptPres.Slides.Add(4, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Учитель:" .Shapes(2).TextFrame.TextRange.Text = "Ребята, посчитайте, со сколькими людьми вы встречаетесь каждый день." End With ' Слайд 5 With pptPres.Slides.Add(5, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Дома" .Shapes(2).TextFrame.TextRange.Text = "Вы общаетесь с родителями, братьями и сестрами, с соседями." End With ' Слайд 6 With pptPres.Slides.Add(6, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "В школе" .Shapes(2).TextFrame.TextRange.Text = "С учителями, школьными товарищами, библиотекарем, читателями." End With ' Слайд 7 With pptPres.Slides.Add(7, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "В магазине" .Shapes(2).TextFrame.TextRange.Text = "С продавцами, кассирами, незнакомыми людьми." End With ' Слайд 8 With pptPres.Slides.Add(8, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "На улице" .Shapes(2).TextFrame.TextRange.Text = "С прохожими, старыми, молодыми, взрослыми, сверстниками." End With ' Слайд 9 With pptPres.Slides.Add(9, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Вывод" .Shapes(2).TextFrame.TextRange.Text = "Человек находится в постоянном общении со знакомыми и незнакомыми людьми." End With ' Слайд 10 With pptPres.Slides.Add(10, ppLayoutText) .Shapes(1).TextFrame.TextRange.Text = "Важно помнить!" .Shapes(2).TextFrame.TextRange.Text = "Культура поведения — это основа уважения к окружающим."

Подготовка презентации включает создание нового приложения PowerPoint, добавление слайдов с текстом и заголовками, а также определение целей и задач классного часа, посвященного культуре поведения в общественных местах.

Слайд 2: Правила, обязательные для всех

Правила, обязательные для всех, помогают нам жить в гармонии и уважении друг к другу. Они являются основой нашего поведения в общественных местах, способствуя созданию комфортной и безопасной среды для всех. Соблюдение этих правил делает наш мир лучше и добрее.

Слайд 3: Беседа-диалог о правилах поведения в общественных местах

Культура поведения - основа уважения к окружающим. Обсуждение проблемы: «Культура поведения в общественных местах». Цели и задачи классного часа: привитие этических норм поведения. Ход классного часа: обсуждение проблемы общения с людьми. Вывод: человек находится в постоянном общении с окружающими.

Слайд 4: Цели и задачи классного часа

Цели и задачи классного часа включают привитие этических норм поведения в обществе и воспитание культуры речи, поведения в общественных местах, а также формирование уважения к личности. Эти цели направлены на создание основы для гармоничного взаимодействия между людьми в различных жизненных ситуациях.

Слайд 5: Ход классного часа

Обсуждение проблемы: «Культура поведения в общественных местах». Учитель задает вопрос классу. Ученики отвечают на вопросы учителя. Подведение итогов обсуждения.

Заберите Презентацию бесплатно FREE

Зарегистрируйтесь и отредактируйте её под свои задачи за пару минут.

Использовать презентацию

Похожие презентации

Все презентации

Нам доверяют

Кирилл В

трафик-менеджер

В редакторе я в основном оформляю свои кейсы для демонстрации клиентам. Как правило, использую готовый шаблон, прикрепляю документы и генерю презентацию как черновик, а потом уже добавляю данные по кейсам в виде диаграмм для наглядности, дорабатываю текст, визуал, но даже так времени это занимает на...

Читать полностью

Сергей Н

Руководитель компании

Я в дизайне вообще ничего не понимаю, поэтому мне очень помогает функция, когда я могу просто накидать сырой текст на слайды, а затем все это причесать с помощью ии. Минут за 15 можно сделать аккуратную и стильную презентацию. Это реально сильно экономит силы и время.

Анна К

бренд-менеджер

Slider Ai для нас спасение при подготовке презентаций стратегии и отчетов для клиентов. В отличии от других редакторов, которыми мы с командой пользовались раньше, здесь не нужно быть дизайнером, чтобы создавать красивые презентации, за которые не стыдно перед важными клиентами.

Ирина М

отдел маркетинга

Как руководитель отдела, ценю, что с помощью Slider Ai все презентации команды выходят в едином корпоративном стиле. Это укрепляет бренд и выглядит профессионально. Встроенные диаграммы, особенно каскадные и Ганта, незаменимы для визуализации данных. Настройка бренд-кита заняла у нас 15 минут, и теп...

Читать полностью

Ольга М

бизнес-тренер

В редакторе Slider Ai мне проще делать презентации для своих выступлений, потому что нужно по минимуму что-то делать вручную, много функций, которые позволяют просто нажать на кнопку и получить готовый результат. Плюсом есть возможность добавить видео прямо на слайды, а еще использовать 3D модели, р...

Читать полностью

Слайд 2: Правила, обязательные для всех

Слайд 3: Беседа-диалог о правилах поведения в общественных местах

Слайд 4: Цели и задачи классного часа

Слайд 5: Ход классного часа

Слайд 6: Учитель:

Шаблоны презентаций, доступные бесплатно в редакторе Slider Ai

Slider Ai наполнен функциями для всех, кто работает с презентациями

Нам доверяют

Ваша следующая великая работа всего в одном шаге от вас