Создание нового макроса уравнения в PowerPoint 2007 - PullRequest
Новая
       27

Создание нового макроса уравнения в PowerPoint 2007

1 голос
/ 21 октября 2011

Я помогаю одному из своих профессоров, но то, что должно быть простым делом, начинает меня расстраивать.

У меня нет опыта использования Visual Basic для создания макросов в MS Office 2007, в частности PowerPoint '07.

Все, что мне нужно, это макрос для вставки нового уравнения в слайд PowerPoint, который затем будет использоваться в качестве кнопки на панели быстрого доступа. Макрос должен предварительно выполнить эти две задачи:

1) В меню «Вставка» выберите «Объект».

2) В списке Тип объекта выберите Microsoft Equation 3.0.

(взято из http://office.microsoft.com/en-us/powerpoint-help/insert-an-equation-HP005194680.aspx ~ Я знаю, что это "применимо" к 2003 году, но это тот же процесс в 2007 году)

Мне очень жаль задавать такой простой вопрос здесь, но я всюду искал помощи и не могу найти простой справочник библиотеки VB, который я могу понять. Из того, что я понимаю, мне нужно пройтись вниз по объектам PowerPoint, Presentation, Slide, а затем добавить Shape? Или, может быть, это можно сделать через объект CommandBars? Я чувствую, что это действительно простая проблема, которая может быть решена одним из вас, опытных ребят, чтобы спасти меня от нескольких часов поисков в Google, которые не помогут мне ...

По сути, конечным результатом будет кнопка на панели быстрого доступа, которая откроет Equation Editor 3.0

1 Ответ

2 голосов
/ 21 октября 2011

Microsoft Equation 3.0 создает объект OLE, который можно создать и открыть с помощью следующего кода: 

Dim SlideNumber As Integer
Dim ShapesCount As Integer

SlideNumber = ActiveWindow.View.Slide.SlideIndex
With ActivePresentation.Slides(SlideNumber)
    .Shapes.AddOLEObject Left:=100, Top:=100, Width:=200, Height:=100, ClassName:="Equation.3", DisplayAsIcon:=False
    ShapesCount = .Shapes.Count
    .Shapes(ShapesCount).OLEFormat.Activate
End With

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

Надеюсь, это поможет.

...