条形码9.0控件打印不刷新

liuzi360

查阅了论坛里的办法，放上如下代码，sheet1中控件打印可以刷新Private Sub Worksheet_Change(ByVal Target As Range)
For Each barcode In ActiveSheet.OLEObjects
    If LCase(barcode.Name) Like "barcodectrl*" Then
        With barcode
        m = .Height
        .Height = m - 1
        .Height = m
        End With
    End If
Next
End Sub

但sheet2，sheet3中就不能实现刷新，初接触VB，请大虾指教，怎么实现sheet2，sheet3。。。。的条形码打印刷新
是否可以指定单元格内容来判断，再执行刷新？

liuzi360

没有人可以帮忙解答吗

microyip

Sheet2有刷新啊，只是Sheet2的CodeBar前面的单元格是根据Sheet1的数值变动而变动

microyip

你的VBA代码没有改变BarCode的值，只是改变它的大小而已。实际BarCode值的指向如下图示。

liuzi360

microyip 发表于 2016-7-29 19:39
你的VBA代码没有改变BarCode的值，只是改变它的大小而已。实际BarCode值的指向如下图示。

那有办法做到Barcode值同步改变吗，谢谢

liuzi360

现在就是sheet2，sheet3中没有运行这段代码
With barcode
        m = .Height
        .Height = m - 1
        .Height = m
        End With
怎么才能够在事件中触发这段代码呢，求解

cgmc

For Each barcode In ActiveSheet.OLEObjects，注意这里的ActiveSheet是指当前激活的工作表，最容易想到的做法是增加代码Sheets("Sheet2").Select后再运行一遍上面修改条码宽度的代码

songlijiao

For Each barcode In ActiveSheet.OLEObjects
这句话翻译一下是:在活动工作表对象里的每一个条码，执行循环。
ActiveSheet显然非激活的sheet2，sheet3，不会包括在循环的范围