Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Код который выделит ВСЕ рисунки на листе и удалит... / 13 сообщений из 13, страница 1 из 1
27.10.2006, 12:16:28
    #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:24:58
    #34086541
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Код который выделит ВСЕ рисунки на листе и удалит...
Код: plaintext
ActiveSheet.Pictures.Delete

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

...можно есче на другой лист рисунки ставить. Что в принципе не противоречит поставленной мною задачи. Даже лучше будет.
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 09:31:23
    #34092947
Chi-nick
Chi-nick
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Код который выделит ВСЕ рисунки на листе и удалит...
Добрый день. Еще вопрос.
Возможно ли втавка рисунков этим методом, но с указанием координат установки, а не с привязкой к выделенной ячейке. Т.е. мне из нескольких рисунков формата emf необходимо собрать один эскиз, при этом координаты установки у них разные.
онимаю что EXCEL-это не графическая прога :) и она для этого не предназначена, но интересен этот метод формирования динамических рисунков.
Эскиз формируется в результате полученных ранее данных из различных элементов (как мозаика). Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 11:36:10
    #34093514
Chi-nick
Chi-nick
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Код который выделит ВСЕ рисунки на листе и удалит...
никаких соображений?
... а еще вот: можно сделать привязку вставки рисунка, например, к правому верхнему углу уже вставленного до этого рисунка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 14:17:55
    #34094267
Chi-nick
Chi-nick
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Код который выделит ВСЕ рисунки на листе и удалит...
...что вообще ничего по этому вопросу???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 14:45:47
    #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, 16:46:35
    #34095047
Chi-nick
Chi-nick
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Код который выделит ВСЕ рисунки на листе и удалит...
не понял я чей то...
ошибка выдается:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 17:14:19
    #34095189
Chi-nick
Chi-nick
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Код который выделит ВСЕ рисунки на листе и удалит...
Разобрался...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 17:18:50
    #34095216
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Код который выделит ВСЕ рисунки на листе и удалит...
Chi-nickРазобрался...

Пожалуйста ;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Код который выделит ВСЕ рисунки на листе и удалит... / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 253ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184015]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 14ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 187ms
total:  253ms
x
x
Закрыть


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