Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как удалить или скопировать "фото" с помощью VBA в .xls
 
#1
23.04.2010 13:41:53
If foto = True Then ActiveCell.DrawingObjects.Select  
 
If foto = True Then Selection.Delete
 
 
 
#2
23.04.2010 13:53:44
спасибо, будем знать )
 
 
 
#3
23.04.2010 14:32:02
Это был вопрос.
 
 
 
#4
23.04.2010 15:34:35
то что вы описали это можно сделать и с помощью   VBAрекордера. Мне надо сделать так.. что бы программа выделяла фотку в ячейке удаляла, и вставляла новую фотку.  
 
Заранее спасибо.
 
 
 
#5
23.04.2010 15:39:00
{quote}{login=The_Prist}{date=23.04.2010 02:54}{thema=}{post}Здравствуйте, TEG.    
Вы на какой ответ рассчитываете?  
Вы не хотите нам рассказать, где у Вас находятся картинки - на форме, на листе еще где?  
Что такое foto и почему оно два раза True?  
Надо удалять уже известный объект или его имя неизвестно?  
Да и удалить и скопировать совершенно разные вещи.  
 
Для картинки на листе:  
ActiveSheet.Shapes("Рисунок 1").Copy  
ActiveSheet.Shapes("Рисунок 1").Delete{/post}{/quote}  
 
можно было конструкцию if end применить.  
 
его имя неизвестно.
 
 
 
#6
23.04.2010 16:28:11
{quote}{login=The_Prist}{date=23.04.2010 02:54}{thema=}{post}Здравствуйте, TEG.    
Вы на какой ответ рассчитываете?  
Вы не хотите нам рассказать, где у Вас находятся картинки - на форме, на листе еще где?  
Что такое foto и почему оно два раза True?  
Надо удалять уже известный объект или его имя неизвестно?  
Да и удалить и скопировать совершенно разные вещи.  
 
Для картинки на листе:  
ActiveSheet.Shapes("Рисунок 1").Copy  
ActiveSheet.Shapes("Рисунок 1").Delete{/post}{/quote}  
 
 
Удалить неизвестный объект.  
Скопировать неизвестный объект.  
Foto - есть на пользовательской форме... если есть галочка, то найти позицию, удалить старую фотку (если она есть), вставить новую фотку.  
 
Я расcчитываю, что мне помогут это реализовать с помощью VBA.
 
 
 
#7
23.04.2010 16:36:28
Удалить неизвестный объект, по-моему, нельзя.    
Если только все картинки сразу со всего листа удалить, так можно.
 
 
 
#8
23.04.2010 16:41:32
перед тек как удалить неизвестный объект...надо его  имя узнать и вставить  
ActiveSheet.Shapes("вот сюда").Copy  
ActiveSheet.Shapes("вот сюда").delete  
 
вопрос ... как это все сделать.  
Это только мои  предположения.
 
 
 
#9
23.04.2010 16:55:05
Т.е. вы хотите, чтобы мы вам подсказали, как узнать имя картинке на листе? А если их там 50шт?    
Можно конечно циклом пройтись по всем картинкам и узнать все их имена.
 
 
 
#10
23.04.2010 16:57:35
{quote}{login=}{date=23.04.2010 04:55}{thema=}{post}Т.е. вы хотите, чтобы мы вам подсказали, как узнать имя картинке на листе? А если их там 50шт?    
Можно конечно циклом пройтись по всем картинкам и узнать все их имена.{/post}{/quote}  
 
нет. имя объекта в конкретной ячейки
 
 
 
#11
23.04.2010 16:59:30
TEG, загляните всё-таки в правила или хотя бы в верхнюю часть страницы:  
"...четко и подробно сформулируйте свой вопрос, приложите файл с примером..."  
потому что, по-моему, никто так до сих пор и не понял, в чем именно Вам нужна помощь...
 
 
 
#12
23.04.2010 17:05:33
Предположим, что названия картинок лежат в А1 и в А2, то  
 
Sub Макрос1()  
   On Error Resume Next  
   ActiveSheet.Shapes(Range("A1")).Copy  
   ActiveSheet.Shapes(Range("A2")).Delete  
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх