Ilya Vasilyev » 25.03.2004 (Чт) 6:25
Dim St as String
St = ActivePresentation.Slides.Add.Name
Получим имя вновь созданного слайда, соответственно
ActivePresentation.Slides(St).Delete
- удалить
St = ActivePresentation.Slides(...).Shapes.AddLabel(...).Name
добавить тектовый лейбл... параметры см. в хелпе по AddLabel
при этом в St получаем имя вновь созданного объекта
--H--.AddShape(...)
добавить форму (прямоуг., круг,...), также см. в хелпе
Далее
ActivePresentation.Slides(...).Shapes(St).{параметр}={значение}
список доступных параметров и значений - из хелпа
и все в том же духе...
Если на активном слайде (который сейчас на экране) произошли изменения, то если у тебя Office 2k или ниже - необходимо сделать переход на этот же самый слайд
ActivePresentation.SlideShowWindow.View.GotoSlide ActivePresentation.Slides(...).SlideIndex
если Office XP или выше, то такой переход необязателен... когда все изменения на слайде завершаться, и транслятор завершит выполнение всех процедур - слайд автоматически обновится, причем эффекта смены слайда не будет (иногда очень полезно)
По части Экселя я таки не понял суть вопроса...
Спрашивай если что...
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали