门窗天使软件Windoors_Angel

标题: 自定义工艺单导入Excel图片不显示 [打印本页]

作者: 我的不解风情 时间: 2020-9-11 00:19
标题: 自定义工艺单导入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

108").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

cc165bd389c6c54c9b463955a0a1029.png (64.11 KB, 下载次数: 476)

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

作者: 门窗天使 时间: 2020-9-11 08:38
如果是wps，那么请换成微软office 。下面是更换的教程
http://www.mc112.com/forum.php?mod=viewthread&tid=301

如果安装的是office，输出的时候部分窗型图不显示，那么必定是win10系统。某些版本的win10，自定义输出office 会出现这样的问题。暂时无法解决。

作者: 363001640 时间: 2020-9-11 16:55
wps版本如果带宏插件，并且放窗型图的单元格不合并也可以的

欢迎光临门窗天使软件Windoors_Angel (http://mc112.com/)