问题设置InlineShape的宽度 [英] problem setting Width for InlineShape

问题描述

大家好，

我最近将我的机器升级到Windows 7和Office 10.

I recently upgraded my machine to Windows 7 and Office 10.

从那时起，我无法设置我使用vba添加的内联形状的宽度。

Since then, I cannot set the width of an inline shape I added using vba.

代码工作多年...

尝试设置宽度时，Office会冻结我收到一个错误：远程过程调用失败。 （来自HRESULT的异常：0x800706BE）

When trying to set the width, Office freezes and I get an error : The remote procedure call failed. (Exception from HRESULT: 0x800706BE)

这是我的代码：

objWordInlineShape = objWordDoc.Sections(1).Headers(1).Range.InlineShapes.AddPicture(sFileName)

objWordInlineShape.LockAspectRatio = -1

objWordInlineShape.Width = 440
objWordInlineShape.Height = 40

推荐答案

嗨Guy，

如果你按F8一步一步运行你的代码，你会发现它工作正常！我发现只有在第一次运行这个
代码时它才会出现异常。如果您成功运行此代码，则永远不会发生异常。

我希望它有所帮助。

祝你有美好的一天，

Tom Xu

这篇关于问题设置InlineShape的宽度的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！