这个代码封装后无法运行

[309411]

Sub 批量对齐(control As IRibbonControl)
    Dim 图片 As Excel.Shape  '声明图形对象变量
    Dim 图片边距           '图片边距 表示图片距离Excel边框的宽
    Set xlApp = Application
    For Each 图片 In xlApp.ActiveSheet.Shapes  '遍历本表所有图形对象
        With 图片
            If 图片.Type = msoPicture Then
                If .TopLeftCell.EntireRow.Hidden = True Or .TopLeftCell.EntireColumn.Hidden = True Then
                    '图片所在单元格的属性为"隐藏"时,该图片不做任何改变
                Else
                    '.Locked = True     
                    .LockAspectRatio = msoFalse
                    .Left = .TopLeftCell.Left
                    .Top = .TopLeftCell.Top
                    .Width = .TopLeftCell.Width
                    .Height = .TopLeftCell.Height
                    .Placement = xlMoveAndSize  '图片随表格大小改变
                End If
            End If
        End With
    Next 图片
End Sub

[309411]

在Excel中能运行，封装后无法运行。需要封装的其他步骤都没有错误

zpy2

[309411] 发表于 2023-12-14 22:50
在Excel中能运行，封装后无法运行。需要封装的其他步骤都没有错误

msoPicture

这个常量 换成 对应的数字 试试，是不是封装后没有了。

[309411]

zpy2 发表于 2023-12-15 06:51
msoPicture

这个常量 换成 对应的数字 试试，是不是封装后没有了。

好的，我先试一下，谢谢

[309411]

zpy2 发表于 2023-12-15 06:51
msoPicture

这个常量 换成 对应的数字 试试，是不是封装后没有了。

改成13后还是不得行

morpheus126

不好意思，您说的“封装”，具体是指哪种形式？

[309411]

morpheus126 发表于 2023-12-15 12:02
不好意思，您说的“封装”，具体是指哪种形式？

我还是用的VB6.0封装成dll，可能就是shape、shapes、picture、pictures等问题引起的。worksheet中粘贴的图片我想把他缩小到单元格尺寸大小，就是我提问这段代码，在Excel vba中能运行，在vb6.0中封装成dll后不能运行。请问一下Excel中的图片（粘贴在sheet中的）在vb6.0中该怎么定义？

zpy2

[309411] 发表于 2023-12-15 09:08
改成13后还是不得行

xlMoveAndSize
单步调试，看看类似这种的常量值对不对。

ddmc

   Set xlApp = Application？？？

[309411]

zpy2 发表于 2023-12-16 07:04
xlMoveAndSize
单步调试，看看类似这种的常量值对不对。

好的 谢谢呢，我再试试呢