[pva]

Задача сгруппировать объекты в PowerPoint и назначить им анимацию. На месте "сгруппировать" не хочет. Писать на бейсике не позволяет пижонство.

Код:

  with (slide1.shapes.Range(Array(2,3,4)).Group())
  {
    Fill.BackColor.RGB = 0xc0c0c0;
    Fill.ForeColor.RGB = 0xffffff;
    Fill.TwoColorGradient(2, 1);
    Line.Visible = false;
    AnimationSettings.Animate = true;
    AnimationSettings.AdvanceMode = 2;
    AnimationSettings.AdvanceTime = 0.;
    AnimationSettings.EntryEffect = 2051;
  }

а так работает:

Код:

Sub Animation1(Shapes1)
  With Shapes1.Range(Array(2,3,4)).Group
    .Fill.BackColor.RGB = &hc0c0c0
    .Fill.ForeColor.RGB = &hffffff
    .Fill.TwoColorGradient 2, 1
    .Line.Visible = false
    .AnimationSettings.Animate = true
    .AnimationSettings.AdvanceMode = 2
    .AnimationSettings.AdvanceTime = 0.
    .AnimationSettings.EntryEffect = 2051
  End With
End Sub