VBA/Excel/Access/Word/Data Type/OLE Equation

Материал из VB Эксперт
Версия от 12:48, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Add OLE-Equation

 
Option Explicit
Private Sub CommandButton1_Click()
  Sheets(1).OLEObjects.Add("Equation.3").Name = "new"
  With Sheets(1).OLEObjects("new")
    .Left = 10   "size and position
    .Top = 10
    .Width = 50
    .Height = 50
    .Activate   "activate OLE objekt
  End With
  Sheets(1).[a1].Activate
End Sub
Источник — «http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Data_Type/OLE_Equation&oldid=1848»