Объем объекта WordArt в Word 2007

[Nord18]

Доброго времени суток! Кто знает подскажите, как задать свой объем объекту WordArt в Word 2007? Стандартный не подходит а свой не могу понять как сделать! Заранее благодарю!

[Alex Cones]

Вид => Настройка объема. - постаьте галку
После этого выделите объект и работайте с ним.

[Nord18]

Сообщение от Alex Cones

Вид => Настройка объема. - постаьте галку
После этого выделите объект и работайте с ним.

Не совсем понимаю. В 2007 такого вообще нет. Там для объекта WordArt только фиксированные значения глубины. А надо вместо 72 пт поставить 50. Если не трудно скриншоты сделайте! Плиззз!

[viter.alex]

Макросом так:

Selection.ShapeRange(1).ThreeD.Depth = 15#

Если для объекта WordArt стоит "Обтекание текстом" "В тексте", то сначала нужно сделать другое обтекание, применить этот макрос, а затем вернуть WordArt обратно в текст. Не знаю почему так, макрорекордер записал такую же команду и для InlineShape, но она не работает.
А можно и таким, почти универсальным макросом, который проделает вышеописанные действия.

Sub WordArtDepth()
  Static i#
  i = CDbl(InputBox("Укажите желаемую глубину", "Задание глубины", i))
  If Selection.InlineShapes.Count = 1 Then
    Selection.InlineShapes(1).ConvertToShape
    Selection.ShapeRange(1).ThreeD.Depth = i
    Selection.ShapeRange(1).ConvertToInlineShape
  ElseIf Selection.ShapeRange.Count = 1 Then
    Selection.ShapeRange(1).ThreeD.Depth = i
  End If
End Sub

[Nord18]

При чем здесь обтекание текстом? В справке написано что можно задать свою глубину объема. Вопрос: где это меню?

[viter.alex]

Меню есть, но как ты правильно заметил, можно установить только фиксированное значение:

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

[Nord18]

Если не трудно объясните поподробнее как его создать и как им пользоваться?!

[viter.alex]

Как подключить готовый макрос и запустить его на выполнение?

[Nord18]

Спасибо! Но появилась проблема:1. При изменении глубины объема с помощью макроса автоматически меняется и размер всего объекта. Как то можно это исправить?

[viter.alex]

Немного доработаем предыдущий макрос. Перед применением, если к WordArt объём ещё не применялся, то работать не будет. Сначала примени объём, а потом запускай макрос.

Sub WordArtDepth()
  Static i#, w#, h#
  i = CDbl(InputBox("Укажите желаемую глубину", "Задание глубины", i))
  If Selection.InlineShapes.Count = 1 Then
    w = Selection.InlineShapes(1).Width
    h = Selection.InlineShapes(1).Height
    Selection.InlineShapes(1).ConvertToShape
    With Selection.ShapeRange(1)
      .ThreeD.Depth = i
      .Height = h: .Width = w
      .ConvertToInlineShape
    End With
  ElseIf Selection.ShapeRange.Count = 1 Then
    With Selection.ShapeRange(1)
      w = .Width
      h = .Height
      .ThreeD.Depth = i
      .Height = h: .Width = w
      .ConvertToInlineShape
    End With
  End If
End Sub