blocks|key|234501|text|您可能想看看这。以下是该网站的评论：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|234502|基本要素：
使用关联形状容器的.ScaleHeight和.ScaleWidth属性调整图片的大小。此属性确定要缩放图像的相对于原始图片大小的百分比大小。
示例：
以下代码将图片高度调整为原始图片高度的90%25：
InlineShapes.Item(1).ScaleHeight+=+90|blockquote|style|CODE|234503|或者，您可以在创建图像时更改大小：|234504|ActiveDocument.Shapes.AddPicture+FileName:=path+&+"\"+&+"image.png",+_
LinkToFile:=False,+_
SaveWithDocument:=True,+_
Left:=-0,+_
Top:=0,+_
Anchor:=Selection.Range,+_
Width:=50,+_
Height:=50|code-block|syntax|javascript|234505|entityMap|0|LINK|mutability|MUTABLE|url|http://software-solutions-online.com/word-vba-resize-pictures/^0|6|1|0|0|2X|11|0|0|0^^$0|@$1|2|3|4|5|6|7|X|8|@]|9|@$A|Y|B|Z|1|10]]|C|$]]|$1|D|3|E|5|F|7|11|8|@$A|12|B|13|G|H]]|9|@]|C|$]]|$1|I|3|J|5|6|7|14|8|@]|9|@]|C|$]]|$1|K|3|L|5|M|7|15|8|@]|9|@]|C|$N|O]]|$1|P|3|-4|5|6|7|16|8|@]|9|@]|C|$]]]|Q|$R|$5|S|T|U|C|$V|W]]]]

You might want to look at <a href="http://software-solutions-online.com/word-vba-resize-pictures/" rel="nofollow noreferrer">This</a>.
Here is a comment from the site:
<blockquote>
Basics:
Pictures are resized using the .ScaleHeight and .ScaleWidth property of their associated shape container. This property determines the size in percent relative to the original picture size to scale the image.
Example:
The following code resizes the picture height to 90% of the original picture height:
<code>InlineShapes.Item(1).ScaleHeight = 90</code>
</blockquote>
Alternatively you can change the size when creating the image:
<pre><code>ActiveDocument.Shapes.AddPicture FileName:=path &amp; &quot;\&quot; &amp; &quot;image.png&quot;, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=-0, _
Top:=0, _
Anchor:=Selection.Range, _
Width:=50, _
Height:=50
</code></pre>

blocks|key|234512|text|哦(最新的答复)..。请试一试，(文字后面的图片的评论令人困惑.)。现在的问题似乎是，当您更改段落格式时，实际上取消了图像的选择。这可以通过在添加图像之前更改段落对齐来解决。可以这样做：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|234513|Sub+ap()
++++Dim+imgPath+As+String
++++imgPath+=+imgPath+&+"image.png"

++++Selection.ParagraphFormat.Alignment+=+wdAlignParagraphCenter

++++Dim+myIlsh+As+InlineShape
++++Set+myIlsh+=+Selection.InlineShapes.AddPicture(FileName:=imgPath,+LinkToFile:=False,+SaveWithDocument:=True)

++++myIlsh.ScaleHeight+=+80
++++myIlsh.ScaleWidth+=+80

++++Set+myIlsh+=+Nothing
End+Sub|code-block|syntax|javascript|234514|如果您确实有与文本不一致的图像，您应该能够用以下方法修复它们：|234515|Sub+resizeImage()
++++Dim+iLoop+As+Long
++++For+iLoop+=+1+To+ActiveDocument.Shapes.Count
++++++++ActiveDocument.Shapes(iLoop).Select
++++++++If+MsgBox("resize+shape+&+convert+to+inline?",+vbYesNo)+=+vbYes+Then

++++++++++++If+ActiveDocument.Shapes(iLoop).WrapFormat.Type+<>+wdWrapInline+Then
++++++++++++++++ActiveDocument.Shapes(iLoop).ConvertToInlineShape
++++++++++++End+If
++++++++++++ActiveDocument.Shapes(iLoop).ScaleHeight+0.8,+msoTrue
++++++++++++ActiveDocument.Shapes(iLoop).ScaleWidth+0.8,+msoTrue

++++++++End+If
++++Next+iLoop
End+Sub|234516|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Oh (updated answer)... please try this then, (the comment about the image being behind text was confusing...). The problem now seems to be that when you change the paragraph formatting you actually deselect the image. This could be addressed by changing the paragraph alignment BEFORE adding the image. It can be done like this:

<pre><code>Sub ap()
 Dim imgPath As String
 imgPath = imgPath &amp; "image.png"

 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

 Dim myIlsh As InlineShape
 Set myIlsh = Selection.InlineShapes.AddPicture(FileName:=imgPath, LinkToFile:=False, SaveWithDocument:=True)

 myIlsh.ScaleHeight = 80
 myIlsh.ScaleWidth = 80

 Set myIlsh = Nothing
End Sub
</code></pre>

<hr>

In case you DO have images that are not inline with text you should be able to fix them with this:

<pre><code>Sub resizeImage()
 Dim iLoop As Long
 For iLoop = 1 To ActiveDocument.Shapes.Count
 ActiveDocument.Shapes(iLoop).Select
 If MsgBox("resize shape &amp; convert to inline?", vbYesNo) = vbYes Then

 If ActiveDocument.Shapes(iLoop).WrapFormat.Type &lt;&gt; wdWrapInline Then
 ActiveDocument.Shapes(iLoop).ConvertToInlineShape
 End If
 ActiveDocument.Shapes(iLoop).ScaleHeight 0.8, msoTrue
 ActiveDocument.Shapes(iLoop).ScaleWidth 0.8, msoTrue

 End If
 Next iLoop
End Sub
</code></pre>

I have this code:

<pre><code>Selection.InlineShapes.AddPicture FileName:=path &amp; "\" &amp; "image.png", LinkToFile:=False, SaveWithDocument:=True
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.InlineShapes.Item(1).ScaleHeight = 80
Selection.InlineShapes.Item(1).ScaleWidth = 80
</code></pre>

But a 5941 error message appear:

<blockquote>
 Run-time error '5941' the requested member of the collection does not exist.
</blockquote>

I want to set specific Height and Width.

How can I fix it?

Changing the image size

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我有这样的代码：Selection.InlineShapes.AddPicture FileName:=path & "\" & "image.png", LinkToFile:=False, SaveWithDocument:=TrueSelection.ParagraphFormat.Alignment = wdA...

问改变图像大小
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问改变图像大小EN