Форум программистов [Powered by Invision Power Board]

Цитата(zhefran @ 19.5.2008, 14:28

)

необходимо выполнить команду, которая висит в подменю

Цитата(bilya @ 19.5.2008, 15:23

)

Командуют из меню/подменю - как я понимаю - кнопками, у кнопок есть свойство .OnAction, при помощи которого и назначается исполняемый макрос

Код

Application.CommandBars("Lines").Controls(4).Execute

Цитата(Aloha @ 19.5.2008, 15:42

)

Application.CommandBars("Lines").Controls(1).Execute

Код


Application.CommandBars("Line color").Controls(1).Execute

Код


ActiveSheet.Shapes.AddLine(143.25, 294#, 336.75, 294#).Select
    ActiveSheet.Shapes.AddLine(336.75, 294#, 399.75, 350.25).Select
End Sub

Код


var agCtrl;
var inkPresenter; // Corresponds to InkPresenter element in XAML.
var newStroke = null; // The Stroke variable we'll use here in mouse handlers.
// DrawingAttributes variables.
var daWidth = 2;
var daHeight = 2;
var daColor = "Black";
var daOutlineColor = "Black";

function root_Loaded(sender, args) 
{
    // Get the HTML object that contains the Silverlight plug-in.
    agCtrl = sender.GetHost();
    inkPresenter = sender.findname("inkPresenterElement");
}

// Capture mouse movement when the left button is pressed, and create the stroke.
function InkPresenterMouseDown(sender,args)
{
   inkPresenter.CaptureMouse();
   
   newStroke = agCtrl.content.createFromXaml('<Stroke/>');
   
   var da = agCtrl.content.CreateFromXaml('<DrawingAttributes/>');
   newStroke.DrawingAttributes = da;
   
   // Set the drawing attribute properties.
   newStroke.DrawingAttributes.Width = daWidth;
   newStroke.DrawingAttributes.Height = daHeight;
   newStroke.DrawingAttributes.Color = daColor;
   newStroke.DrawingAttributes.OutlineColor = daOutlineColor;
   
   newStroke.StylusPoints.AddStylusPoints(args.GetStylusPoints(inkPresenter));
   inkPresenter.Strokes.Add(newStroke);
}

// Add the new points to the Stroke we're working with.
function InkPresenterMouseMove(sender,args)
{
   if (newStroke != null)
   {
      newStroke.StylusPoints.AddStylusPoints(args.GetStylusPoints(inkPresenter));
   }
}

// Release the mouse.
function InkPresenterMouseUp(sender,args)
{
   newStroke = null;
   inkPresenter.ReleaseMouseCapture();
}

// Set the drawing attributes for a pen.
function SelectPen(sender, args)
{
  daWidth = 1;
  daHeight = 1;
  daColor = "Black";
  daOutlineColor = "Black";
}

// Set the drawing attributes for a marker.
function SelectMarker(sender, args)
{
  daWidth = 10;
  daHeight = 4;
  daColor = "Blue";
  daOutlineColor = "Blue";
}

// Set the drawing attributes for a highlighter.
function SelectHighlighter(sender, args)
{
  daWidth = 25;
  daHeight = 5;
  daColor = "Yellow";
  daOutlineColor = "Yellow";
}

// Erase all strokes from the canvas.
function EraseCanvas(sender, args)
{
  inkPresenter.Strokes.Clear();
}

Код


//должен быть подключен в проект WordApplication с закладки Servers
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
 begin
   Button1.Caption:=inttostr(wordapplication1.CommandBars.Count);
    for i:=1 to wordapplication1.CommandBars.Count do
      begin
        memo1.Lines.Add(wordapplication1.CommandBars.Item[i].Name);
  end;
 end;

Код


CommandBars("Annotation Pens").Controls.Item(2).Execute

Код


Sub asdas()
CommandBars("Line Color").Controls.Item(4).Execute
CommandBars("Line Color").Controls.Item(5).Execute
End Sub