ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Код который выделит ВСЕ рисунки на листе и удалит...
13 сообщений из 13, страница 1 из 1
Код который выделит ВСЕ рисунки на листе и удалит...
    #34086503
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
Доброго времени суток. Уважаемые профи, поможите.
Нужно сделать Код который выделит ВСЕ рисунки на листе и удалит их.
т.е. в данный момент в активном листе EXCEL при нажатии кнопочки происходит следующее:
находится в определенной папке файл рисунка и вставляется в лист.
Если нажать снова ее, то рисунок добавится новый, оставив старый. А нужно сделать так чтобы при нажатии перед вставкой нового рисунка ,шла очистка листа от ВСЕХ рисунков. т.к. в далнейшем подразумевается вставка не одного. а нескольких рисунков сразу.
Код действия данной кнопки ниже. Спасибо заранее.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Function PIC() As String
Dim stTemp1 As String
Dim FN As String
    'Взять путь нахождения активной книги
stTemp1 = ActiveWorkbook.Path
FN = Range("STK").Value
    'Прибавить имя папки и имя файла полученных из ячейки STK
PIC = stTemp1 + "\" + "Pic" + "\" + FN + ".emf"

End Function

Private Sub CommandButton2_Click()

MsgBox " Создать эскиз сечения?"
'Перенос курсора на поле PIC
Range("PIC").Select

'Не дай Бог ошибка
On Error GoTo ErrorsPic

ActiveSheet.Pictures.Insert(PIC).Select
 GoTo Ends
 
ErrorsPic:
MsgBox " Ошибка процедуры."
GoTo Ends

Ends:
End Sub
...
Рейтинг: 0 / 0
27.10.2006, 12:16:28
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34086541
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
ActiveSheet.Pictures.Delete

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
27.10.2006, 12:24:58
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34086560
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
нууу. я ваще-е! :-))
А ведь писал эту строчку!!! Буковку "s" в слове "Pictures" пропустил!
Спасибо!
...
Рейтинг: 0 / 0
27.10.2006, 12:29:29
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34086584
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
гм. так вместе с рисунками и кнопочки на хр... удалились.
че-то не то... :(
мож еще какие соображения будут...
...
Рейтинг: 0 / 0
27.10.2006, 12:34:30
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34086853
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Chi-nickгм. так вместе с рисунками и кнопочки на хр... удалились.
че-то не то... :(
мож еще какие соображения будут...

Вар 1: Заменить кнопки из панели Элементы управления (Visual Basic) на кнопки из панели Формы

Вар 2:
Код: plaintext
1.
2.
3.
4.
5.
Sub test2()
    Dim pct As Object
    For Each pct In ActiveSheet.Pictures
        If Not TypeOf pct Is OLEObject Then pct.Delete
    Next pct
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
27.10.2006, 13:32:20
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34086873
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
ОКейна.

...можно есче на другой лист рисунки ставить. Что в принципе не противоречит поставленной мною задачи. Даже лучше будет.
Спасибо.
...
Рейтинг: 0 / 0
27.10.2006, 13:38:31
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34092947
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
Добрый день. Еще вопрос.
Возможно ли втавка рисунков этим методом, но с указанием координат установки, а не с привязкой к выделенной ячейке. Т.е. мне из нескольких рисунков формата emf необходимо собрать один эскиз, при этом координаты установки у них разные.
онимаю что EXCEL-это не графическая прога :) и она для этого не предназначена, но интересен этот метод формирования динамических рисунков.
Эскиз формируется в результате полученных ранее данных из различных элементов (как мозаика). Спасибо.
...
Рейтинг: 0 / 0
31.10.2006, 09:31:23
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34093514
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
никаких соображений?
... а еще вот: можно сделать привязку вставки рисунка, например, к правому верхнему углу уже вставленного до этого рисунка?
...
Рейтинг: 0 / 0
31.10.2006, 11:36:10
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34094267
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
...что вообще ничего по этому вопросу???
...
Рейтинг: 0 / 0
31.10.2006, 14:17:55
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34094421
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Test()
    Sheet1.Shapes.AddPicture _
        Filename:="C:\Samples\Sample.jpg", _
        linktofile:=msoFalse, _
        savewithdocument:=msoCTrue, _
        Left:= 0 , _
        Top:= 0 , _
        Width:= 300 , _
        Height:= 200 
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
31.10.2006, 14:45:47
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34095047
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
не понял я чей то...
ошибка выдается:
...
Рейтинг: 0 / 0
31.10.2006, 16:46:35
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34095189
Chi-nick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chi-nick
Гость
Разобрался...
...
Рейтинг: 0 / 0
31.10.2006, 17:14:19
| Ответить | Цитировать | Написать  
Код который выделит ВСЕ рисунки на листе и удалит...
    #34095216
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Chi-nickРазобрался...

Пожалуйста ;-)
...
Рейтинг: 0 / 0
31.10.2006, 17:18:50
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Код который выделит ВСЕ рисунки на листе и удалит...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34095189&tid=2184015]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 69ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 203ms
total:  356ms
созд. / загр.: 356ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]