Создание фигуры по условию

[IgorGO]

не хорошо цитировать себя, но повторюсь:

функция
x = Cells(Cells(i, 1).Left + 1).Left
определена на промежутке для і от 1 до Rows.count
и равно 0 для любых значений і

не знаю что у Вас выдает х = 318
но это
x = Cells(Cells(i, 1).Left + 1).Left
зависит только от і выдаст х = 0 при любом значении і (см. выше)
кстати
напишите x = Cells(Cells(i, 1).Left + 1).Left + 318
- получите всегда 318

[IgorGO]

Теперь еще, можно ли как то вывести весь список фигур на листе. Мне надо найти лишние фигуры.

dim sp as shape, r as long
r =1
for each sp in activesheet.shapes
  cells(r,1) = sp.name
  r = r+1
next

[GAS1979]

Вот рабочий файл с данным кодом

[GAS1979]

Сообщение от IgorGO

dim sp as shape, r as long
r =1
for each sp in activesheet.shapes
  cells(r,1) = sp.name
  r = r+1
next

Спасибо, это работает.

[IgorGO]

найдите 10 отличий (хотя бы одно для начала)
то что мы обсуждали:
x = Cells(Cells(i, 1).Left + 1).Left
и то что в Вашем в рабочем коде:
x = Cells(Cells(i, 1).Left + 2).Left - это зависит от i точно так же как и первое выражание и выдаст cells(1,2).left - для любого i (в Вашем случае результат = 318)
вот это x = Cells(Cells(i, 1).Left + 2).Left зависит ТОЛЬКО от ширины 1-й колонки и никак не зависит от i

[GAS1979]

IgorGO - спасибо, я понял, осознал свою ошибку