Помогите с vba

Чтобы в **PowerPoint** использовать VBA для передачи текста из одного слайда на другой, выполните следующие шаги:

---

### **Шаги по созданию VBA кода**

1. **Добавьте текстовое поле на первом слайде:**
- На первом слайде вставьте **текстовое поле** (Insert > Text Box).
- Назовите его, используя **Имя объекта**. Например, присвойте имя **"InputBox"** (это важно для ссылки через VBA).

2. **Добавьте текстовое поле на втором слайде:**
- На втором слайде также вставьте текстовое поле.
- Назовите его **"OutputBox"**.

3. **Добавьте кнопку для запуска макроса:**
- Вставьте на первый слайд кнопку (Insert > Shapes > Action Buttons).
- Щелкните правой кнопкой мыши и выберите **"Assign Macro"** или **"Назначить макрос"**.

4. **Напишите VBA-код:**
- Откройте редактор VBA, нажав **Alt + F11**.
- Вставьте следующий код:

```vba
Sub TransferText()
' Объявляем переменные
Dim inputText As String

' Считываем текст из текстового поля на первом слайде
inputText = ActivePresentation.Slides(1).Shapes("InputBox").TextFrame.TextRange.Text

' Передаем текст в текстовое поле на втором слайде
ActivePresentation.Slides(2).Shapes("OutputBox").TextFrame.TextRange.Text = inputText
End Sub
```

---

### **Как это работает:**
1. Макрос **TransferText** считывает введенный текст из текстового поля **"InputBox"** на первом слайде.
2. Затем он вставляет этот текст в текстовое поле **"OutputBox"** на втором слайде.

---

### **Пошаговый запуск:**
1. Сначала откройте слайды и убедитесь, что текстовые поля названы корректно (**"InputBox"** и **"OutputBox"**).
2. Назначьте макрос **TransferText** на кнопку на первом слайде.
3. Введите текст в поле на первом слайде.
4. Нажмите на кнопку – макрос выполнится, и текст появится на втором слайде.

---

### **Дополнительные советы:**
- Убедитесь, что макросы включены в настройках безопасности PowerPoint.
- Названия объектов в коде (InputBox и OutputBox) должны точно совпадать с именами текстовых полей.

Если что-то не получается, сообщите, и я помогу вам разобраться!