[求助]用宏命令把图片插入到EXCEL表中,不能显示

Levi · 发表于 2007-6-6 17:16

用宏命令把图片插入到EXCEL表中,在有的机器上可以显示图片内容,但有写机器上只显示图片名,图片内容不显示

ActiveSheet.OLEObjects.Add(Filename:=PIC, link:=False, displayasicon:=False).Select

请教是什么问题啊?

snood · 发表于 2007-6-6 20:46

ActiveSheet.Pictures.Insert(pic).Select

Levi · 发表于 2007-6-7 09:31

版主,不行啊,用ActiveSheet.Pictures.Insert(pic).Select

出错提示: You cannot use this command on a protected sheet.........

我的表是锁住的,里面的信息都是从其他表中提取的.

而且在公司,有的机器上没问题,有的就不能显示图片内容,只显示图片名.

Sub insertpic()
Sheets("SPEC").Select
Range("i8").Select
Dim PIC As String
PIC = Sheets("SPEC").Range("a1").Value

    ActiveSheet.OLEObjects.Add(Filename:=PIC, Link:=False, _
        DisplayAsIcon:=False).Select
    Selection.ShapeRange.ScaleWidth 1.33, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.33, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 480
    Selection.ShapeRange.Width = 555
    Range("D2").Select
End Sub

大家帮帮忙,看看会不会是其他什么问题.

先谢谢大家了

willin2000 · 发表于 2007-6-7 09:53

举一个Sheets("SPEC").Range("a1")里是什么内容?

Levi · 发表于 2007-6-8 10:44

就是图片的路径

willin2000 · 发表于 2007-6-8 10:58

我知道是图片的路径. 具体内容呢? 举个例子, 好排除图片的路径格式/描述等错误

Levi · 发表于 2007-6-11 09:59

先谢谢楼上的.

PIC = "\\severname\sketch\2007\07 PROD\B5040.JPG"

机器上还装有ACDSEE, 有人说是ACDSEE和OFFICE里的图片编辑器产生冲突.

但我重装了OFFICE2003,还是不能解决.

最烦人的是,公司里有的机器显示没有问题.有地就不能显示图片内容,只显示图片名.

		自动登录	找回密码
密码			免费注册