[ID CC-CC2022] Перебор информации в выбранной группе

[ReallyCool]

итого у меня результат такой:
y1 270
x1 169
y2 276
x2 194,95

x2-x1 = 25,95

и как теперь изменить значение x2, например?
строка

t.Rows(2).Cells(9).Rectangles(1).GeometricBounds(3) = 175

дает ошибку

 

[Eugenyus]

Третий элемент - Y2 (нижний край объекта). Значение Y2 сейчас — 276 (допустим, мм). Вы ему назначаете значение 175 (мм). Объект — в ячейке. Y1 = 270 (верхний край). Как быть программе?

 

[ReallyCool]

отбой. изменить получилось вот так:

        y1 = t.Rows(2).Cells(9).Rectangles(1).GeometricBounds(0) 'y1
        x1 = t.Rows(2).Cells(9).Rectangles(1).GeometricBounds(1) 'x1
        t.Rows(2).Cells(9).AllGraphics(1).GeometricBounds = Array(y1, x1, y1 + 6, x1 + 6)

но при попытку добавить еще 1 картинку ту даже, в ячейку, пишет ошибку:

t.Rows(2).Cells(9).Texts(1).InsertionPoints(-1).Place "W:\gg.jpg"

Запрошенный элемент набора не существует.

как же добавить еще 1 картинку?

 

[Eugenyus]

InsertionPoints(-1)

А в VB так можно? Я просто не помню.

 

[ReallyCool]

ну так вчера Лев посоветовал, как добавка изображений к уже существующим в ячейкею
но по факту ставится только одна картинка почему-то.
вообщем, решил проблему так:
дизайнер нарисовал шрифт с этими значками, буду подставлять нужные буквы в эту ячейку.
таким способом:

myFrame.Tables.Item(1).Rows(2).Cells(9).Texts(1).Contents = "ABzCLM"

 

[Skvoznyak]

неплохой метод, кстати

 

[ReallyCool]

неплохой метод, кстати

да, с текстом гораздо проще работать, чем с картинками ))