| Вопрос: Проверка наличия Shape в Excel | Добавлено: 08.05.05 06:59 |
Автор вопроса:  Naifer
|
| Подскажите, как проверить наличие на листе Excel'я картинки, то бишь Shape с известным именем? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 08.05.05 10:26 |
|
Option Explicit
Sub ShapeSearch() Dim sh As Shape For Each sh In ThisWorkbook.Sheets(1).Shapes If sh.Name = "myShape" Then MsgBox "myShape here.." Exit For End If Next sh End Sub |
||
|
Номер ответа: 2 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 08.05.05 10:28 |
| Или может как-то проще. Есть, кажется, проверка существования объекта. Какая-то функция, которую я всё время забываю. | ||
|
Номер ответа: 3 Автор ответа: Naifer Вопросов: 1 Ответов: 1 |
Профиль | | #3 | Добавлено: 08.05.05 11:34 |
| может Is Null? только как использовать, требует объект... | ||
|
Номер ответа: 4 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #4 | Добавлено: 08.05.05 12:45 |
|
function IsThere(byval Where as worksheet, byval ShapeName as string) as boolean
on error resume next isthere=not where.shapes(shapename) is nothing end function |
||
Страница: 1 |