Страницы: 1
RSS
VBA и штрихкод
 
Excel 2003. Установлен компонент ActiveBarcode. Успешно добавляется на Лист1 через Вставка->Объект->ActiveBarcode. Затем необходимо макросом "сделать" следующее: скопировать его на Лист2 и поменять его свойство Text на значение из какой-либо ячейки, хоть с Листа1, хоть с Листа2. С копированием проблем нет, а вот как обратиться с самому объекту ActiveBarcode для изменения его свойств не понятно. Подскажите, если кто знает. Спасибо.
 
Постараюсь конкретизировать вопрос:
необходимо привязать значение штрихкода к какой-либо ячейке, например A1. Добавив объект ActiveBarcode на Лист1 он получает новое имя Barcode1. В списке свойств есть LinkedCell.
Пытаюсь обратиться к нему двумя вариантами - выдает ошибку
1. ActiveSheet.Shapes("Control 1").LinkedCell = "A1"
2.ActiveSheet.OLEObjects("Control 1").Object.LinkedCell = "A1"
Вместо Control 1 пытался подставить Barcode1 (такое имя объекта на Листе1), все-равно никак. Не хватает знаний....
 
Пример... ;)
 
Спасибо, но разобрался сам
Код
 Dim sd As Object
 ActiveSheet.Shapes("Control 1" ;) .Select
 Set sd = Selection
 sd.LinkedCell = "A1"
Страницы: 1
Читают тему
Наверх