我的不解风情 发表于 2020-9-11 00:19:54

自定义工艺单 导入Excel图片不显示

多次尝试 没有用 换Excel版本也没有用调整格式也无用    是代码有问题吗   Sub 宏6()
Sub 宏6()
'
' 宏6 宏
'

'
    Range("L9").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-10]="""","""",INDIRECT(""'""&RC2&""'!A15""))"
    Range("A9:F108").Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-117
    Range("H9:J108").Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-111
    Range("K9:L108").Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-120
    Range("A9:K108").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
    Columns("M:M").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("O7").Select

Application.ScreenUpdating = False

For Each sh In Worksheets

Dim M As Integer

For M = 300 To 8 Step -1

If sh.Cells(M, 14) = "是" Then

    sh.Cells(M, 14).EntireRow.Delete

End If

Next

Next sh

Application.ScreenUpdating = True

End Sub




363001640 发表于 2020-9-11 16:55:39

wps版本如果带宏插件,并且放窗型图的单元格不合并也可以的

门窗天使 发表于 2020-9-11 08:38:48

如果是wps,那么请换成微软office      。下面是更换的教程
http://www.mc112.com/forum.php?mod=viewthread&tid=301


如果安装的是office,输出的时候部分窗型图 不显示,那么必定是win10系统。某些版本的win10,自定义输出office 会出现这样的问题。暂时无法解决。
页: [1]
查看完整版本: 自定义工艺单 导入Excel图片不显示