• Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Тема: Shapes. Замена элементов

Помогите дописать процедурку, плз

Sub Shape_R()
Dim docNew As Worksheet
Dim shpElement As Shape
Set docNew = ActiveSheet
For Each shpElement In docNew.Shapes
??????????????????????????????????????
Next
End Sub

Надо вставить в эту процедуру операторы, меняющие, например, все кубы, находящиеся на листе, на рожицы…
Подозреваю, что нужна функция Replace, но у меня с ней ниче не получается :(
И еще, в методе все примеры процедур написаны с ActiveDocument  и Document, мой комп отказывается с ними работать, приходится заменять на ActiveSheet и Sheet и т.д.
В чем тут проблема?

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Shapes. Замена элементов

Только в качестве идеи без проверки...

For Each shpElement In docNew.Shapes
If shpElement.Name = "Кубы" Then
shpElement.Name = "Рожицы"
End If
Next

~'J'~

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Shapes. Замена элементов

Теперь уже не на коленке:
Меняю кубы на рожицы, кому еще!

Sub ShapeChange()
Dim oShapes As Shapes
Dim oShape As Shape
Dim leftloc, toploc, wid, hgt As Single
ThisWorkbook.Worksheets(3).Activate
Set oShapes = ActiveSheet.Shapes
oShapes.SelectAll
For Each oShape In oShapes
If oShape.AutoShapeType = msoShapeCube Then
leftloc = oShape.Left
toploc = oShape.Top
wid = oShape.Width
hgt = oShape.Height
oShape.Delete
Set oShape = oShapes.AddShape(msoShapeSmileyFace, leftloc, toploc, wid, hgt)
End If
Next
End Sub

~'J'~

  • Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Shapes. Замена элементов

ух ты, как оперативно, спасиб
я думала о чем-то подобном, но так до конца и не додумала :)

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Shapes. Замена элементов

> Mypppka
Посмотри в Object Browser'e, там еще есть свойства, которые, возможно, нужно будет учитывать (масштаб и тд)
~'J'~