Как удалить конкретную фигуру на листе с помощью VBA?
У меня есть лист с множеством форм. Мне нужно удалить только фигуры, которые расположены после 15-й строки, и фигуры, на которых написано «Изменить размер и очистить все». Фигуры представляют собой прямоугольник: закругленные углы, сохраняющие текст и имеющие назначенный макрос
Как вы можете видеть на изображении, у меня будут фотографии (скриншоты), и оно не может быть удалено, я пытаюсь удалить синюю «кнопку».
Почему мне это нужно, потому что я использую пользовательскую форму с ListBox, чтобы выбрать правильный лист, чтобы пользователь Excel мог объединить старый лист с новым (базовая информация в виде строки и рисунков (снимков экрана) будет скопирована с 1 листа другому). Работает нормально. Тем не менее, я заметил, что прямоугольник формы: закругленные углы дублируются, и он также вставляется в новый лист (и мне это не нужно). Поэтому я решил сначала удалить фигуры, а затем объединить листы. Вот мой код
Ps: по какой-то причине, когда код попал сюда Range(«C1»).Copy Alert.Range(«C1») , он автоматически вызывает текст сравнения параметров, но даже при этом код все равно работает, но «синие кнопки» или копируются со старого листа и вставляются в новый лист (дублируя его) или перед объединением листа «синие кнопки» будут удалены со старого листа, по какой-то причине «синяя кнопка на новом листе изменит диапазон».
3 ответа
Попробуйте следующий код (теперь он удаляет только прямоугольники со скругленными углами в соответствии с вашими условиями):
И версия кода, удаляющая все типы фигур (за исключением картинок), начинаю работать, прежде чем вы ответите на мой вопрос:
Средства рисования в excel как убрать
При щелчке рисунка вместо вкладки "работа с рисунками" появляется вкладка "средства рисования"
Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке) .
Проблема
При щелчке рисунка над вкладкой Формат появляется вкладка Средства рисования вместо вкладки Работа с рисунками.
Примечание: Если вы не видите ни вкладку Работа с рисунками, ни вкладку Средства рисования, убедитесь в том, что вы выбрали рисунок, фигуру или другой объект.
Причина
Это изображение не считается рисунком, так как оно, вероятно, имеет векторный тип или является внедренным объектом.
Обычно имена файлов векторных рисунков имеют расширение WMF, EMF или EPS. Кроме того, большинство картинок имеют формат векторных рисунков.
Если еще не выбран правильно изображения или документ был создан в более ранней версии Office и вы используете Office в режиме совместимости, могут возникать проблемы.
Решение
Выполните одно или несколько из следующих действий:
Замените изображение рисунком, в имени файла которого есть одно из следующих расширений: PNG, JPEG, JPG, TIFF, BMP или GIF.
Убедитесь в том, что рисунок выбран, щелкнув его.
Дважды щелкните рисунок, чтобы выбрать его и открыть вкладку Формат.
Если вы видите [Режим совместимости] рядом с именем файла в верхней части окна Office, сохраните документ в вашей версии документа Office вместо более старые версии, в которой он изначально был сохранен и повторите попытку.
Дополнительные сведения
Дополнительные сведения о рисованных кривых см. в статье Рисование и удаление линий и соединителей.
Дополнительные сведения о добавлении рисунка отображается вставлять изображения.
Сведения об обрезке и сжатии рисунка см. в статье Уменьшение размера файла рисунка.
Как удалить пустые рисунки в Excel
Добрый день!
Помогите, пожалуйста, разобраться — в файле Excel (*xls) ни с того ни с сего на одной из вкладок появилась куча пустых рисунков — отображаются при клике мышки в любое поле. При нажатии delete ничего не удаляется, куча пустых рисунков засоряет лист и при внесении изменений приходится ждать по несколько минут. Может, кто-то знает, как сделать так, чтобы убрать эти рисунки.
p.s. Файл используется по работе несколькими людьми, но никто в авторстве рисунков не признается
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Как удалить внедренные рисунки фона форм?
как удалить внедренные рисунки фона форм??перебирал картинки на фон и теперь база из 5мб.
Как удалить пустые строки?
Есть текстовый файл в котором я удалил дубликаты,остались пустые строки на их месте,хочу удалить в.
Как удалить пустые теги
Здравсвуйте. У меня есть список такого вида:
-
Категория1
-
.
Как удалить пустые строки?
Допустим есть вот такая строка Нужно как-то с помощью trim сделать вот такую строку . Наверное.
Сообщение от seazone
Добрый день!
Помогите, пожалуйста, разобраться — в файле Excel (*xls) ни с того ни с сего на одной из вкладок появилась куча пустых рисунков — отображаются при клике мышки в любое поле. При нажатии delete ничего не удаляется, куча пустых рисунков засоряет лист и при внесении изменений приходится ждать по несколько минут. Может, кто-то знает, как сделать так, чтобы убрать эти рисунки.
p.s. Файл используется по работе несколькими людьми, но никто в авторстве рисунков не признается
analyst, спасибо за ответ.
К сожалению, не могу загрузить файл сюда — из-за рисунков он весит 4,3 мб, выложила сюда — http://fayloobmennik.net/201946. Рисунки есть на вкладках И и ТИ — их можно увидеть при клике на строку, разделяющую столбцы E и F — начинается с E28 примерно. Метод вырезания рисунков тоже пробовала, но при закрытии и последующем открытии файла они никуда не пропадают.
seazone, на сайт можно выкладывать файлы в архивах до 10 мегабайт.
Добавлено через 24 минуты
Ваша ситуация произошла скорей всего из за того, что Вы где то получили данные автоматически. устранить довольно легко но как все сразу не знаю. на рисунку кликните правой кнопкой и выберите в меню "размер и свойства". затем "свойства" и переместите точку на "перемещать и изменять объект . ". после чего можете спокойно удалить данный рисунок. кстати советую заглянуть на вкладку "замещающий текст" не оттуда случаем ваши данные?
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Как удалить пустые ячейки таблицы?
Привет! Пытаюсь писать что то типа этого, но видимо неправильно: delete Вопросы from Table1.
ComboBox — как удалить пустые строки?
В combobox получаю список активных приложений по заголовкам, и там куча пустых строк. Как сделать.
Как удалить пустые строки в TextBox
Как удалить пустые строки в TextBox1, если можно регулярным выражением?
VBA Excel. Удаление элементов управления формы с листа
Элементы управления формы имеют два имени: основное на английском языке и альтернативное на русском. Как ни странно, оба этих имени можно использовать в качестве ShapeName в выражении, удаляющем элемент управления с рабочего листа.
Чтобы узнать альтернативное имя на русском языке, необходимо кликнуть правой кнопкой мыши по элементу управления формы. Откроется первое контекстное меню, а в адресной строке отобразится альтернативное имя.
Альтернативное имя кнопки на русском языке
Чтобы узнать основное имя на английском языке, необходимо кликнуть правой кнопкой мыши по элементу управления формы с задержкой на одну секунду: нажать кнопку, подождать одну секунду и отпустить. Откроется второе контекстное меню, а в адресной строке отобразится основное имя.
Основное имя кнопки на английском языке
Точно так же определяются основные и альтернативные имена других элементов управления формы.
Удаление одного элемента управления
Удаление элемента управления формы с рабочего листа книги, в которой размещен код:
ActiveSheet.Shapes(«Drop Down 2»).Delete
Удаление элемента управления формы с рабочего листа другой открытой книги: