Как вставить штрих код в excel

Вставка штрих-кода в документ Office

Если вы работаете с документом Word, книгой Excel или презентацией PowerPoint, сохраненной в библиотеке на сайте Microsoft Office SharePoint Server 2007, в которой действует политика, требующая вставки штрихкода как часть политики управления сведениями, возможно, потребуется вставить штрихкод в системный файл при сохранении или печати.

Важно: Штрихкоды больше не поддерживаются в SharePoint 2013 и более поздних версиях. Дополнительные сведения можно найти в разделе неподдерживаемые и измененные функции в Microsoft SharePoint 2013.

Общие сведения

При отправке файла в библиотеку документов, в которой есть политика штрихкодов, штрихкод добавляется к свойствам (метаданным) элемента, но не вставляется в сам файл. Если вы решили изменить документ, а затем сохранить или распечатать его, он будет вставлен в файл как изображение. При работе с печатными документами, содержащими эти штрихкоды, вы можете использовать в документе сведения о штрихкоде, чтобы найти исходную копию документа и найти ее на Office SharePoint Server 2007 сайте. Это означает, что вы можете легко просмотреть все связанные рабочие процессы, метаданные, журнал аудита и другие сведения.

Вы не можете вставить штрихкод в документ, пока администратор сайта или диспетчер списков не настроит соответствующую политику для библиотеки. Если такая политика существует, на вкладке » Вставка » появляется кнопка » штрихкод «, чтобы можно было вставлять штрихкоды.

Любой документ, уже существующий в списке или библиотеке, для которого установлен параметр, не назначается штрихкодом (поэтому не может быть вставлен) до тех пор, пока документ не будет извлечен и снова возвращен. Документы, отправленные в список или библиотеку, для которых уже действует действующая политика штрихкодов, автоматически получают штрихкоды, которые можно вставлять немедленно.

Вставка штрихкода вручную

Если администратор или владелец списка настроили политику штрихкодов для списка или библиотеки, штрихкоды автоматически генерируются на сервере для элементов и документов из этого списка или библиотеки при отправке или изменении элементов и документов.

В зависимости от настройки политики штрихкодов вам также может потребоваться вставить изображения штрихкода в документы, хранящиеся в библиотеках на сайте SharePoint.

1. Если библиотека еще не открыта, щелкните ее имя на панели быстрого запуска. Если имя библиотеки не отображается на панели быстрого запуска, щелкните Просмотреть все содержимое узла, а затем выберите имя библиотеки.
2. Наведите указатель мыши на нужный документ, щелкните появившуюся стрелку, а затем выберите команду Изменить для названия программы Office (например, изменить в Microsoft Office Word).
3. Поместите курсор в то место документа, куда вы хотите вставить штрихкод.
4. На вкладке Вставка в группе штрихкод нажмите кнопку штрихкод.

Примечание: Команда » штрихкод » появляется на вкладке » Вставка » только в том случае, если для серверного документа действует политика штрихкодов.

Вставка штрихкода при сохранении или печати

В библиотеке на сайте SharePoint может быть указана политика штрихкода, требующая вставки штрихкода при сохранении или печати документа.

Если документ еще не содержит штрихкод при сохранении или печати, вам будет предложено вставить его. При нажатии кнопки Да при появлении соответствующего запроса штрихкод будет вставлен в расположение по умолчанию.

• Если файл доступен только для чтения, штрихкод вставляется в текущее расположение курсора.
• Если файл находится в режиме редактирования, штрихкод будет вставлен в расположение по умолчанию.
  • В Word Штрихкод будет вставлен в верхний колонтитул первой страницы документа.
  • В Excel Штрихкод будет вставлен в первую ячейку первого листа книги.
  • В PowerPoint Штрихкод будет вставлен в центр первого слайда в презентации.

  Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

  покупка

  Как вставить штрих-код в ячейки на основе определенного значения в Excel

  Вы когда-нибудь путали создание штрих-кода в ячейках на основе определенного значения? В этой статье представлены три метода решения этой проблемы.

  Вставить штрих-код в ячейку с помощью Barcode Control

  Это Контроль штрих-кода Microsoft может помочь вставить штрих-код в ячейку с определенным значением. Пожалуйста, сделайте следующее.

  1. Нажмите Застройщик > Вставить > Больше элементов управления.

  2. в Больше элементов управления в окне найдите и выберите Контроль штрих-кода Microsoft и нажмите OK кнопку.

  

  Примечание: Вы можете заметить, что существуют разные типы управления штрих-кодом. Это зависит от вашей версии Excel.

  3. Теперь нарисуйте штрих-код на своем листе. Затем щелкните его правой кнопкой мыши и выберите Объект управления штрих-кодом Microsoft > Свойства.

  

  4. в Свойства элемента управления штрих-кодом Microsoft в окне укажите нужные параметры и щелкните значок OK кнопку.

  

  5. Еще раз щелкните штрих-код правой кнопкой мыши и выберите Объекты из контекстного меню. в Объекты в окне введите соответствующее значение в Значение поле, которое вы хотите отобразить в штрих-коде, а затем закройте окно.

  

  Теперь штрих-код создан.

  

  Пакетная вставка штрих-кода в ячейки на основе значения ячейки в Excel:

  Это Вставить штрих-код полезности Kutools for Excel может помочь вам легко вставить штрих-код в ячейки сразу несколькими щелчками мыши. См. Демонстрацию ниже:
  Скачать полную версию 30 — дневная бесплатная трасса Kutools for Excel сейчас!

  Вставить штрих-код в ячейки со шрифтом штрих-кода

  Пожалуйста, сделайте следующее, чтобы вставить штрих-код в ячейки на основе данных в Excel.

  1. Для начала нужно перейти по ссылке http://www.free-barcode-font.com/ чтобы загрузить шрифт штрих-кода на свой компьютер.

  2. Затем загружается заархивированный файл шрифта штрих-кода. Разархивируйте файл и дважды щелкните файл fre3of9x TTF, чтобы открыть его.

  

  3. В следующем окне щелкните значок Установите кнопка. Смотрите скриншот:

  

  4. После установки первого файла TTF повторите шаги 2–3, указанные выше, чтобы установить другие файлы TTF.

  5. Откройте рабочий лист, в который нужно вставить штрих-коды. Выберите пустую ячейку (говорит B2) рядом с ячейкой (говорит A2), содержащую данные, на основе которых вы создадите штрих-код. Затем укажите ссылку на ячейку данных, введя формулу =A2 в строку формул. Смотрите скриншот:

  

  6. Продолжайте выбирать ячейку B2, а затем выберите Бесплатно 3 из 9 or Бесплатно 3 из 9 Расширенный из шрифт раскрывающийся список, как показано на скриншоте ниже:

  

  7. Затем в ячейке B2 создается первый штрих-код на основе данных в ячейке A2. Перетащите маркер заполнения вниз, чтобы получить все штрих-коды. Смотрите скриншот:

  

  Пакетная вставка штрих-кода в ячейки легко с удивительной функцией

  Вообще говоря, два вышеупомянутых метода неудобны, поскольку элемент управления штрих-кодом иногда не устанавливается в Excel по умолчанию или шрифт штрих-кода трудно удовлетворить вашим потребностям типа штрих-кода.

  Здесь Вставить штрих-код полезности Kutools for Excel может помочь вам быстро вставить штрих-код в диапазон ячеек сразу за несколько щелчков мышью на основе определенного значения ячейки в Excel.

  Перед операцией, пожалуйста сначала скачайте и установите.

  1. Откройте рабочий лист, в который вы вставите штрих-код в ячейки, а затем включите утилиту, нажав Кутулс > Вставить > Вставьте штрих-код. Смотрите скриншот:

  

  2. Затем Вставить штрих-код панель отображается в правой части окна Excel. Пожалуйста, сделайте следующее:

  • Выберите тип штрих-кода, который вы хотите вставить, из Тип штрих-кода раскрывающийся список. Вы можете нажать на Предварительный просмотр штрих-кода для предварительного просмотра выбранного типа штрих-кода.
  • Перейти к Данные раздел, выберите диапазон, содержащий значение, на основе которого вы вставите штрих-код в Диапазон данных поле и выберите диапазон для размещения штрих-кода в Вставить диапазон пунктом.
  • Укажите проверку, высоту строки, направление, ширину и высоту штрих-кода.
  • Проверить Показать номер штрих-кода пунктом.
  • Нажмите Применить кнопку.

  

  Затем штрих-коды на основе определенных значений ячеек генерируются и вставляются в ячейки, как показано ниже.

  

  Если вы хотите получить бесплатную пробную версию ( 30 -день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

  Лучшие инструменты для офисной работы

  Усовершенствуйте свои навыки работы с Excel с помощью Kutools for Excelи испытайте эффективность, как никогда раньше. Kutools for Excel Предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего.

  Office Tab Добавляет в Office интерфейс с вкладками и значительно упрощает вашу работу

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint , Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

  Печать ценников, этикеток и штрих-кодов в программе Excel

  

  Из данной статьи вы узнаете о существующем платном и бесплатном программном обеспечении, позволяющем создавать и распечатывать ценники, этикетки и т.д. напрямую из программ Microsoft Word и Excel.

  Microsoft Excel – одна из наиболее популярных программ, предназначенная для работы с электронными таблицами, входит в пакет MS Office. Данную программу зачастую применяют как программу для учёта товара, так как в ней можно управлять данными, заполненными в таблице. Используя предусмотренные разработчиками формулы, которые просто нужно вставлять в ячейки таблицы, можно производить довольно сложные профессиональные финансовые и иные расчёты. Microsoft Excel предоставляет пользователю широкие возможности по оптимизации и обработке информации.

  Excel документы обычно называют «книгами», потому что они состоят из нескольких вложений (страниц) с текстовыми или графическими элементами. Это удобно для формирования прайс-листов, но подойдёт ли данная программа для создания и выпуска ценников и этикеток со штрих-кодом. В данной статье мы расскажем об этом.

  

  Распечатка этикеток и ценников напрямую из Excel

  Создание и печать ценников и этикеток напрямую из Excel возможна только при использовании вспомогательного ПО, к примеру Visual Basic for Applications (далее – VBA) или аналогичной утилиты «Слияние». Данный инструмент создан для объединения информации из документов Word и Excel в одно целое.

  Чтобы создать страницу для распечатки ценников, ярлыков, этикеток со штрих-кодом и без, необходимо создать таблицу с информацией о товаре в Excel, а также сгенерировать макет в Word, печать которого также будет осуществляться через Microsoft Word.

  Ниже мы разберём данный процесс с использованием программы «Слияние». К примеру, собственники торговой точки решили поменять цены на товары, и теперь им требуется распечатать новые ценники на товары, при этом из программ имеется только Microsoft Word и Excel. Для этого заранее подготовьте таблицу в Excel, которая будет использована для «Слияния». Она должна быть без объёдинённых ячеек и в нумерации столбцов иметь индивидуальные названия (они не должны дублироваться, иначе возникнет программный сбой).

  Войдите в документ Microsoft Word и кликните на меню (круглая иконка вверху слева), из появившегося перечня укажите [Параметры] → [Дополнительно]. В свойствах параметра [Затенения полей] укажите [Всегда]. Это нужно, чтобы было понятно, где поле слияния, а где основной текст, при этом фон не будет виден на печати.

  Теперь можно приступать к созданию макета:

  • Откройте [Рассылки] и нажмите [Начать слияние].
  • В появившемся перечне выберите [Наклейки…].
  • Откроется окно [Параметры наклейки], в нём указываем все нужные характеристики и подтверждаем выполненные действия, нажав [Ок].

  После этого в документе должна отобразиться разметка, в соответствии с заданными Вами параметрами. По сути это таблица, в которую нужно поместить макеты будущих этикеток, либо ценников.

  Указание источника информации:

  • Снова откройте [Рассылки], после чего нажмите строку [Выбрать получателей].
  • В появившемся списке, кликнем на [Использовать существующий список].
  • Откроется окно [Выбор источника данных]. Выбираем нужный документ и нажимаем [Открыть].
  • Если в документе несколько листов, то обозначаем тот, в котором находится товарная карточка.
  • Подтверждаем действие, нажав [Ок].

  В каждой секции, на которую поделена страница в документе, появится обозначение [NEXT], его нельзя удалять, это программная метка, необходимая для последующего слияния.

  После того, как источник данных будет обозначен в разделе [Рассылки], появится перечень табличных полей

  Форматирование вида этикетки

  В разделе [Вставить поле слияния], добавляем информацию из таблицы Excel в один из сегментов документа Word и вносим текст этикетки.

  После того, как информация из документа Excel появится в одном отделении, её нужно отредактировать и скопировать на оставшиеся, на листе сегменты. Чтобы время верстки макета посмотреть его печатную версию, кликните на [Рассылки] и нажмите [Просмотреть результаты].

  Создаём окончательную версию листа (с этикетками или ценниками), для печати:

  • Нажмите [Найти и объединить], после чего в появившемся списке выбираем [Печать документов].
  • Также можно выбрать раздел [Изменить отдельные документы]. После этого программа сформирует новый документ, в котором, в случае необходимости, можно открыть и откорректировать уже сформированные этикетки.

  Всё описанное выше можно сделать, применив программу «Мастер слияния».

  

  Печать штрих-кода из Excel

  Создание ценника со штрих-кодом и последующая его печать напрямую из документа Excel – кропотливый и длительный процесс, требующий знаний в программировании и написании макросов. Значительно быстрее и легче создать ценник со штрих-кодом при помощи дополнительного ПО. Ниже мы, на примере двух популярных программ, расскажем, как это сделать.

  Labeljoy – специализированная программа, предназначенная для создания маркировки.

  Функциональные возможности данной утилиты позволяют:

  • Формировать и печатать лейблы для папок, визиток и т.п.
  • Осуществлять поддержку WYSIWIG-интерфейса – позволяет изменять текст.
  • Подсоединение к дополнительным источникам информации, генерация динамических и статических лейблов.
  • Определение итоговой суммы.

  Также в Labeljoy имеется вшитый генератор 1D и 2D обозначений.

  Платная версия Labeljoy интегрируется с Excel, Oracle, MySQL и Access, в ней имеется более 6500 макетов.

  TbarCode Office – это программное дополнение, созданное для взаимодействия со всем пакетом программ Microsoft Office. Утилита позволяет с лёгкостью переносить любую информацию из Word в Excel и наоборот, с последующей печатью напрямую из них.

  Штрих-коды в TbarCode:

  • Уже смоделированы, в соответствии с имеющимися стандартами.
  • Создаются в высоком качестве.
  • Могут быть отправлены в печать на любой принтер.
  • Более 100 различных модификаций штрих-кодов.

  Также программа имеет дополнительную функцию создания серийных писем и коррекции обнаруженных при распечатке несоответствий.

  Labels: программа для формирования и распечатки этикеток в Excel

  Создатели ПО VBA предусмотрели лёгкую и понятную Excel-надстройку. Она разработана для корректирования информации в таблицах, а также создания и последующей печати на их основе этикеток, ценников, штрих-кодов и т.п.

  Функциональные возможности Labels позволяют:

  • Печатать ценники и этикетки на продукты, посредством получения информации из товарного каталога.
  • Генерация этикеток для выбранных из таблицы товаров.
  • Обработку квитанций на оплату ЖКХ.

  При этом, для осуществления любой из этих возможностей, достаточно нажатия одной кнопки.

  Labels позволит вам:

  • Указывать нужное количество этикеток для размещения на листе заданного формата.
  • Осуществлять предварительную подготовку как стандартных, так и усложнённых макетов (с содержанием изображений, знаков и комментариев).
  • Вносить запрограммированные данные на шаблоны этикеток или квитанций, используя при этом полный программный комплекс Excel;
  • Использовать программные формулы и иметь доступ к условному инструментарию.
  • Определять нужные записи из таблицы – к примеру, имеется возможность создания ценников только для товаров с заданной ценой.
  • Подставлять в шаблоны товары, как из выделенной строки, так и из ячейки страницы (к примеру, текущее число и т.п).

  Создатели ПО вшили в комплекс функции гибкой отладки шаблона, корректировки и изменения макета страницы, а также внесения данных в строки напрямую из таблицы.

  Программное обеспечение для распечатки ценников из Excel

  Ценник 1.Х – это бесплатное ПО для распечатки ценников напрямую из Excel. Утилита, по сути, является простейшим добавочным модулем, в ней нет базы данных, поэтому сохраняется только последняя обработанная накладная. При этом, данный добавочный модуль содержит в себе около 120 шаблонов и редакторов, интегрируемых с Excel, а также присутствуют все необходимые функциональные возможности для использования в работе графических элементов.

  Использование Ценник 1.Х существенно облегчает следующие задачи:

  • Перенос информации из электронной накладной, сгенерированной в Excel.
  • Расчёт разных уровней ценообразования (оптовые, розничные, акционные и т.д).
  • Создание от одной до нескольких внутренних накладных – к примеру, для распределения и закрепления документов за определенным отделом, или за уполномоченными сотрудниками.
  • Текущая печать внутренних документов или сохранение их для осуществления отложенной печати.
  • Разработка уникального дизайна ценников, этикеток и т.п.

  Для корректной работы программы требуется установка интегрируемой с данной версией ОС и пакета документов Microsoft Office.

  После создания конкретного дизайна, программа позволяет перенести макет в любую программу Microsoft Office, а также переслать его на другой ПК.

  Ещё одна популярная программа для создания и печати этикеток – это e-Ценник, она позволяет:

  • Генерировать и сохранять прайс-листы, на основе базы данных из сторонних программ.
  • Отправлять в печать документы, ценники и т.п., напрямую из таблицы Excel.

  Программа имеет функцию автоматического масштабирования элементов макета, а также:

  • Возможность записи команд на «горячие клавиши».
  • Возможность использования Excel таблиц.
  • Универсальные шаблоны ценников и этикеток (дополнительные шаблоны можно загрузить с сайта разработчика) и многое другое.

  Как вставить штрих код в excel

  Такое впечатление, что проблема в файле. Именно к фигуре шрифт не применяется, зато к ячейкам — без проблем. Можете просто скопировать текст из фигуры в ячейку и назначить шрифт Barcode. Все будет отображаться нормально.

  Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы.

  Пользователь
  Сообщений: 32 Регистрация: 24.07.2018
  24.07.2018 19:08:56

  Дмитрий(The_Prist) Щербаков, данные файлы выгружаются массово (несколько десятков тысяч в день). Если каждый открывать и править, то рабочего дня не хватит. А многие конечные получатели с экселем на Вы, а то и просто печатают и от руки заполняют. Потом присылают обратно в бумажном виде, а поставщик отказывается принимать из-за отсутствия штрих-кода. И тут проблема не в файле. Можете попробовать создать новый документ, в нем вставить «Надпись» и попробовать применить этот шрифт или другие нестандартные — результат тот же — не применяет, по крайней мере у меня. Мне больше интересно, почему Эксель 2003 спокойно применяет шрифт к фигуре, а 2016-й наотрез отказывается? Может эту функцию можно как-то включить?

  Пользователь
  Сообщений: 14615 Регистрация: 15.09.2012
  Профессиональная разработка приложений для MS Office
  24.07.2018 19:13:38

  Цитата
  whitemanehorsey написал: Можете попробовать создать новый документ, в нем вставить «Надпись» и .

  Все дело в том, что попробовал и все работает. Штрих-код именно в фигуре. Так что дело-таки в файле изначально. Что, правда, совсем не означает, что наряду с этим нет проблем в самом офисе — это может быть связано воедино. Косяк в файле, который не учтен в офисе. Отправьте в Microsoft с описанием бага, может чего исправят.

  Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы.

  Пользователь
  Сообщений: 23775 Регистрация: 22.12.2012
  24.07.2018 19:20:25

  У меня и в 2010м ШК только в ячейке можно задать.
  Как вариант — макрос на событие приложения использовать, пусть показыввает этот штрихкод где-то правее, ну или пусть на это место кладёт картинку.

  Пользователь
  Сообщений: 32 Регистрация: 24.07.2018
  24.07.2018 19:26:53

  Дмитрий(The_Prist) Щербаков, хотя да, приношу свои извинения, не работает только если скопировать из исходного файла. Если набивать с нуля, то работает. Мне начинает казаться, что глюк может скрываться или в @ на конце штрих-кода, или в самом процессе выгрузки этих накладных из 1С, которая любит сыпать всякими метаданными и псевдообъектами. Может ли быть такое, что типы данных объектов «Надпись» в структуре файла в 2003-м и в 2016-м экселях разные?

  Про запрос к мелкомягким уже на втором форуме советуют. Наверное все-таки придется. Хотя мне кажется, что они на 1С валить начнут.

  Изменено: whitemanehorsey — 24.07.2018 19:29:00 ( дополнил )
  Пользователь
  Сообщений: 14615 Регистрация: 15.09.2012
  Профессиональная разработка приложений для MS Office
  24.07.2018 19:33:18

  Цитата
  whitemanehorsey написал: Может ли быть такое, что типы данных объектов «Надпись» в структуре файла в 2003-м и в 2016-м экселях разные?

  легко. Но и неверную выгрузку тоже нельзя исключать, т.к. вновь созданные объекты поддерживают эти шрифты. Так что я бы делал ставку именно на косяк выгрузки.

  Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы.

  Пользователь
  Сообщений: 32 Регистрация: 24.07.2018
  24.07.2018 19:36:49

  Hugo, правее нельзя, у поставщика автоматизированная обработка при получении с распознаванием рукописного ввода. Поэтому штрих-код, его размеры и расположение здесь основное. А вот про картинку вопрос интересный. Вот только что считать событием и как извлечь данные из этой автофигуры?

  Пользователь
  Сообщений: 14615 Регистрация: 15.09.2012
  Профессиональная разработка приложений для MS Office
  24.07.2018 19:40:03

  Чисто теоретически, можно написать код, который будет перебирать все файлы, забирать текст из этой фигуры и в новой книге создаст фигуру таких же размеров, вставит текст, применит шрифт и заменит в исходном файле «глючную» фигуру.

  Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы.

  Пользователь
  Сообщений: 23775 Регистрация: 22.12.2012
  24.07.2018 19:42:59

  Событие — открытие или активация листа с такими объектами, или с такой формой, или вообще любого после включения «крыжика» где как придумаете.
  Код берёт объект, генерит по данным штрихкод, делает из этого картинку, ставит куда нужно, сохраняет файл в нужном месте в нужном виде.
  Есть вариант кода, который просто рисует набор линий, тоже можно использовать как вариант решения.
  А можно просто не мудрить, а обработать указанный каталог и всё.

  Изменено: Hugo — 24.07.2018 19:46:02
  Пользователь
  Сообщений: 32 Регистрация: 24.07.2018
  24.07.2018 19:44:55

  Дмитрий(The_Prist) Щербаков, про косяк выгрузки представители поставщика отвечают, что у них все работает. А у них офис 2003 у всех. На 2003-м действительно работает без проблем. Вот потому я тему тут и создал — ищу решение проблемы, возможно, с их косяком, но как я писал выше, поставщик очень крупный и все подстраиваются как могут.

  Пользователь
  Сообщений: 23775 Регистрация: 22.12.2012
  24.07.2018 19:47:12
  А может проще поставить 2003 и открывать в нём?
  Пользователь
  Сообщений: 14615 Регистрация: 15.09.2012
  Профессиональная разработка приложений для MS Office
  24.07.2018 20:00:52
  Попробуйте такой код:

  '--------------------------------------------------------------------------------------- ' Author : The_Prist(Щербаков Дмитрий) ' Профессиональная разработка приложений для MS Office любой сложности ' Проведение тренингов по MS Excel ' https://www.excel-vba.ru ' info@excel-vba.ru ' Purpose: '--------------------------------------------------------------------------------------- Sub FixBarcodeText() Dim sFolder As String, sFiles As String Dim wb As Workbook, ws As Worksheet Dim shptmpl As Shape, shp As Shape 'диалог запроса выбора папки с файлами With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator) 'отключаем обновление экрана, чтобы наши действия не мелькали Application.ScreenUpdating = False sFiles = Dir(sFolder & "*.xls*") Do While sFiles <> "" If sFiles <> ThisWorkbook.Name Then 'открываем книгу Set wb = Application.Workbooks.Open(sFolder & sFiles) Set ws = wb.Sheets(1) Set shp = ws.Shapes(1) If shptmpl Is Nothing Then Set shptmpl = ThisWorkbook.Sheets(1).Shapes.AddLabel(1, shp.Left, shp.Top, shp.Width, shp.Height) shptmpl.Name = "_tmplbarcode_" End If shptmpl.TextEffect.Text = shp.TextEffect.Text shptmpl.TextEffect.FontName = "Barcode" shptmpl.TextEffect.FontSize = 16 shptmpl.Copy ws.Paste With ws.Shapes("_tmplbarcode_") .Left = shp.Left .Top = shp.Top End With shp.Delete 'Закрываем книгу с сохранением изменений wb.Close True 'если поставить False - книга будет закрыта без сохранения End If sFiles = Dir Loop If Not shptmpl Is Nothing Then shptmpl.Delete End If 'возвращаем ранее отключенное обновление экрана Application.ScreenUpdating = True End Sub

  Только пробуйте на копиях файлов. Помещаете нужные для исправления файлы в одну папку. В отдельном файле помещаете данный код. Запускаете его. Выбираете папку с файлами. Он откроет каждый файл и поправит в нем фигуры. Файлы будут сохранены и именно поэтому пробовать лучше на копиях файлов, чтобы ничего не попортить.

  Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы.

  Пользователь
  Сообщений: 32 Регистрация: 24.07.2018
  24.07.2018 20:07:17

  Цитата
  Дмитрий(The_Prist) Щербаков написал: Чисто теоретически, можно написать код, который будет перебирать все файлы

  Файлы в динамике и приходят ежедневно в течение дня. То есть код должен будет работать постоянно на всех машинах, где есть этот глюк. Организовать это нереально, т.к. придется менять структуру работы многих и многих.

  Цитата
  Hugo написал: А может проще поставить 2003 и открывать в нём?

  Увы, как я писал выше, нет. На новые машины куплены лицензии на офис 2016. На офис 2003 лицензии сейчас не продают. А объяснить даунгрейд, что платили за 2016, а пользуются 2003-м сами понимаете.

  Резюмирую:
  Где-то в нас (я и руководство компании) трепыхалась надежда, что проблема решается проще, по принципу «Зайдите в настройки и снимите галочку. «. Но, судя по всему, это не так. Любые сложные решения невыполнимы в силу специфики отрасли. Тот же скрипт я не смогу внедрить человеку, который находится удаленно и даже не знает как запустить тимвьювер. В общем, похоже придется писать в майкрософт и ждать ответа от них. Большое всем спасибо за консультации. Если найду решение — отпишу.

  Цитата

  Hugo написал: Событие — открытие или активация листа с такими объектами, или с такой формой, или вообще любого после включения «крыжика» где как придумаете.Код берёт объект, генерит по данным штрихкод, делает из этого картинку, ставит куда нужно, сохраняет файл в нужном месте в нужном виде.Есть вариант кода, который просто рисует набор линий, тоже можно использовать как вариант решения.А можно просто не мудрить, а обработать указанный каталог и всё.

  Если есть ссылки на примеры кода — буду благодарен. Возможно, придется пересматривать маршрутизацию накладных, если майкрософт ничего не ответит, а количество новых компов будет расти.

  Читать:

  Как отключить наушники на телефоне самсунг