Добрый день!
Помогите пожалуйста. Запуталась.
Есть 2 слайда. 1 титульный. 2 - рабочий. На 2 слайде есть кнопка "добавить".
Мне нужно, при нажатии на эту кнопку :
1. Добавить сумму у глобальной переменной Sum
2. Сделать эту кнопку не активной
3. Перейти на 1 лист.
4. На 1 листе - загрузить картинку (в дальнейшем буду обрабатывать какую картинку загружать, в зависимости от суммы).
5. На 1 листе - вывести эту сумму.
Отрабатывает изменение картинки и вывод суммы на 2 слайде, а на 1 слайде ничего не меняется. Помогите пожалуйста.Файл приложила
Помогите пожалуйста. Запуталась.
Есть 2 слайда. 1 титульный. 2 - рабочий. На 2 слайде есть кнопка "добавить".
Мне нужно, при нажатии на эту кнопку :
1. Добавить сумму у глобальной переменной Sum
2. Сделать эту кнопку не активной
3. Перейти на 1 лист.
4. На 1 листе - загрузить картинку (в дальнейшем буду обрабатывать какую картинку загружать, в зависимости от суммы).
5. На 1 листе - вывести эту сумму.
Отрабатывает изменение картинки и вывод суммы на 2 слайде, а на 1 слайде ничего не меняется. Помогите пожалуйста.Файл приложила
Код |
---|
Private Sub CommandButton2_Click() Dim oIm1 As Image Dim oSl As Slide Dim ppt As Presentation Dim A As Shapes Sum = Sum + 10 'на текущем слайде CommandButton2.Enabled = False Label2.Caption = Str(Sum) Image1.Picture = LoadPicture("C:\Сундук711.jpg") SlideShowWindows(1).View.First далее закомментировала варианты, не получается никак! 'ActivePresentation.Slides(1).Select 'Set A = ActiveWindow.Selection.ShapeRange 'ActivePresentation.Slides(1).Shapes("Image2") ' A.Image2.Picture = LoadPicture("C:\Сундук711.jpg") ' Label1.Caption = Str(Sum) ' TextBox1.Text = Str(Sum) End Sub |