Автофигуры - Microsoft Office Excel

boks · 04.06.2008, 03:48

Как можно программно удалить автофигуры ? В книге Excel более 5000 автофигур, ручками удалять долго...

SAS888 · 04.06.2008, 10:10

Используйте проверку на принадлежность объекта к определенному типу. Например, удалить только автофигуры из всех листов книги, можно так:

Код:

Sub DelAuto()

    Dim S As Shape, i As Integer
    
    For i = 1 To Sheets.Count
        For Each S In Sheets(i).Shapes
            If S.Type = msoAutoShape Then S.Delete
        Next
    Next

End Sub

04.06.2008, 03:48	#1
boks Регистрация: 27.09.2007 Сообщений: 6	Автофигуры Как можно программно удалить автофигуры ? В книге Excel более 5000 автофигур, ручками удалять долго...

04.06.2008, 10:10	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Используйте проверку на принадлежность объекта к определенному типу. Например, удалить только автофигуры из всех листов книги, можно так: Код: `Sub DelAuto() Dim S As Shape, i As Integer For i = 1 To Sheets.Count For Each S In Sheets(i).Shapes If S.Type = msoAutoShape Then S.Delete Next Next End Sub` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Автофигуры	shmelvs	Microsoft Office Word	6	16.07.2008 17:18