Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Dmitriywu
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 13:44:54
ikki, Александр спасибо за помощь!!!  
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 13:33:36
Все спасибо разобрался сам   :D  
Код
Sub t3()
  For Each sh In ActiveSheet.Shapes
    If sh.Name = "прозрачный" Then sh.Delete
  Next
End Sub
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 13:11:12
Выкладываю файл с одинаковыми именами, смотрю прямо над ячейкой А1 белое окошко
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 13:06:09
Подскажите как на писать код со следующей логикой:
do will  если форма на листе имеет имя "прозрачный"
           удалить форму
           loop
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 12:51:36
The_Prist, я скопировать форму с именем прозрачный_1, то ее копия тоже  с именем прозрачный_1
или это глюк какой-то?
Изменено: Dmitriywu - 16.09.2014 12:58:27
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 12:39:52
А если я задам для прозрачного рисунка свое имя, например "прозрачный" ,
на листе будет несколько рисунков с одним именем - вроде такое возможно,
как мне удалить с листа все рисунки с именем "прозрачный"?
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 12:06:22
Johny, Может быть ошибка в коде?
Я пробовал вставлять другие картинки, (сканированные в JPG) - они точно не прозрачные, ваш код все равно показывает "-1"
вставляю картинки через: Вставка\Рисунок\выбрать\ОК
Ексель х64 2010
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 11:53:42
PS: на втором рисунке фон есть - он белый, а на первом он прозрачный
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 11:52:39
ikki,Спасибо за быстрый ответ, код удаления по линии работает.
А можно ли применить этот код только к рисункам?
На листе помимо рисунков будут вставлены графики через инструмент камера - они тоже будут без обводок, и стало быть удаляться ...
Как я понимаю, в самой ексель, такого деления на файлы - как PNG и JPG,  нету?
 
Перейти    
Как удалить картинки на листе - только с прозрачным фоном (PNG)
 
#
16.09.2014 11:34:07
Добрый день!
На листе есть несколько картинок,
часть из них с прозрачным фоном (изначально вставлялись как картинки с  форматом PNG),
часть из них с обычным фоном  (изначально вставлялись как картинки с форматом JPG)
Возможно ли удалить с листа только картинки с прозрачным фоном, так чтобы картинки с обычным фоном остались?
Прикрепил файл пример, с картинками на листе.
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
05.09.2014 08:42:19
Юрий М, Спасибо огромное! Все работает!
Без Вашего наглядного примера, написать  подобное самому сложновато, функцию "Not Intersect" вообще вижу в первые  :)
 
Перейти    
Как скопировать таблицу с картинкой на ПОСЛЕДНЮЮ СТРОЧКУ другого листа VBA
 
#
05.09.2014 08:27:55
Спасибо всем огромное! Все работает!   :D   :D   :D  
Как же круто, когда есть, где получить ответ!
ps Sanja - ваш вариант в моей версии ексель почему то не работает...
Изменено: Dmitriywu - 05.09.2014 08:43:47
 
Перейти    
Как скопировать таблицу с картинкой на ПОСЛЕДНЮЮ СТРОЧКУ другого листа VBA
 
#
04.09.2014 16:51:06
Добрый вечер!
Макрос ищет последнюю свободную строчку на 2-м листе и вставляет туда таблицу с первого листа (все работает но не вставляет картинку)

На первом листе есть таблица содержащая картинку, нужно ее вставить на второй лист в свободное место.
Использую для этого скрип: ищу последнюю свободную строчку на втором листе и копирую туда таблицу с первого листа.
Все уже работает, но
при копировании таблицы- картинка не копируется, копируются только значения ячеек!
Какую функцию мне прописать для .PasteSpecial чтобы копировалась картинка?

PS
Ексель 2010 х64. Надеюсь на Вашу конструктивную помощь
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
04.09.2014 15:51:40
Dmitriywu, или если я правильно Вас понял, другого выхода, как
вырезать содержимое на ненужный лист, с последующей его полной очисткой - нет?
как то не по феншую...  
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
04.09.2014 15:33:56
Юрий М, да все работает!
таблица, значения и картинка на первом листе удаляются и копируются на второй лист!
но, мне не нужно удалять данные с первого листа мне нужно на ВТОРОМ листе удалить таблицу с картинкой
ваш первый макрос копирует содержимое с первого листа на второй
Код
 Range("E17:J34").Copy Sheets("Лист2").Range("A1")
мне нужен второй макрос! который очищает данные на втором листе для нового копирования
Изменено: Dmitriywu - 04.09.2014 15:38:43
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
04.09.2014 15:16:21
Юрий М, Уважаемый Юрий предложенные Вами метод работает на другой результат
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
04.09.2014 14:59:32
Проверил - вообще не удаляет, бегает рамка как при простом вырезании:
Код
Sub ()
Sheets("Лист2").Range("A2:F19").Cut
End Sub
PS Задача не перенести данные с картинкой с первого листа на второй,
    задача удалить данные на втором листе в диапазоне вместе с картинкой
Изменено: Dmitriywu - 04.09.2014 15:00:20
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
04.09.2014 14:52:16
Johny , по этому коду он удалить все картинки на листе?
Задача очистить содержимое в заданном диапазоне A1:F19
Изменено: Dmitriywu - 04.09.2014 15:16:42
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
04.09.2014 14:50:09
Юрий М, да, спасибо! Ну дык он же в буфере будет висить - или это не критично?
Изменено: Dmitriywu - 04.09.2014 15:17:13
 
Перейти    
Как удалить диапазон ячеек в таблице вместе с картинкой?
 
#
04.09.2014 14:44:02
Добрый день уважаемые специалисты по экселю!
Помогите советом по следующему вопросу:
Дано
Таблица которая содержит рисунок,
Как?
Удалить содержимое таблицы в диапазоне А1: F19 вместе с рисунком средствами VBA
Ексель 2010 х64
Пробывал:
Код
Sheets("Лист2".Range("A1:F19") .Delete
Sheets("Лист2".Range("A1:F19").Clear
Содержимое таблицы очищается а вот картинка остается...
Изменено: Dmitriywu - 04.09.2014 14:46:22
 
Перейти    
Как скопировать "картинку" вместе с ячейками, на другой лист средствами VBA
 
#
04.09.2014 14:26:56
??????????  мне новую тему создать ???????????
просто для меня это части одного большого вопроса)))),
как вставлять картинки на лист рассказали - огромное спасибо!
остался вопрос - как их удалять
ЗЫ
если создавать тему "задача вставлять картинки с образцами лицензий в переменное место на листе"
пришлось бы очень долго объяснять что именно нужно  ...
Простите если не туда, я еще только учусь   8-0
Изменено: Dmitriywu - 04.09.2014 14:30:33
 
Перейти    
Как скопировать "картинку" вместе с ячейками, на другой лист средствами VBA
 
#
04.09.2014 14:14:56
Спасибо огромное! Респект, почет и уважуха !
Спасли мой проект

Подскажите а что прописать чтобы удалить содержимое вместе с картинкой
Пробовал
Код
 Sheets("Лист2").Range("A1:G19") .Delete
 Sheets("Лист2").Range("A1:G19").Clear
Картинка остается...
Есть кнопки для форматирования сообщения!
 
Перейти    
Как скопировать "картинку" вместе с ячейками, на другой лист средствами VBA
 
#
04.09.2014 13:47:00
Спасибо за совет!  Сообщение первое, учту на будущее  :oops:
 
Перейти    
Как скопировать "картинку" вместе с ячейками, на другой лист средствами VBA
 
#
04.09.2014 13:38:25
Здравствуйте, уважаемые специалисты по эксель помогите советом:
На листе №1 есть таблица "содержащая" рисунок

Вопрос:
как средствами VBA скопировать содержимое таблицы,  
вместе с картинкой, на другой лист?

Что пробовал:
Копирую через диапазон range
копируются только ячейки, но без нужной картинки

Мой код:
Код
Sub копирование_рисунка_с_формой()     
Range("Лист1!D16:K35").Copy     
Range("Лист2!E16").PasteSpecial End Sub  
Пример файла приложил, ексель 2010 х64
Поправьте меня, что я делаю не так?
Изменено: Dmitriywu - 04.09.2014 13:51:11
 
Перейти    
Страницы: 1
Наверх