Страницы: 1
RSS
Удаление или обновление QR-кода
 
всех приветствую

В VBA я никакой.
Стояла задача генерить печатать qr-коды без применения надстроек Excel.
В просторах нашёл вариант с VBA. Всё сделал, но появилась проблема. В исходном варианте удаление самого qr возможно только в режиме разраба. Копал тырнет, решения не нашёл. Думал о вариантах "горячего"обновления qr в зависимости от  значения ячейки или сделать какую-либо кнопку по удалению всех qr на листе.

Прошу помощи в решении. Рабочий файл во вложении.

Заранее благодарю
Изменено: vikttur - 27.08.2021 17:23:24
 
Код
Sub DelPicture()
Dim sh As Shape
  For Each sh In ActiveSheet.Shapes
   If sh.Name Like "BarCodeCtrl*" Then
     sh.Delete
   End If
  Next
End Sub
Страницы: 1
Наверх