VB 如何控制WORD中插入图片的大小等属性？

自己录个宏，稍加改动就可以了。

Sub 图片旋转270度对齐页面（）"图片排版270度 If Selection.InlineShapes.Count = 0 Then If Selection.ShapeRange.Count 0 Then Selection.ShapeRange.Fill.Visible = msoFalse "Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Rotation = 270# Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) "Selection.ShapeRange.PictureFormat.Brightness = 0.5 "Selection.ShapeRange.PictureFormat.Contrast = 0.5 "Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# "Selection.ShapeRange.Left = 90.1 "Selection.ShapeRange.Top = 88.15 "Selection.ShapeRange.Left = -120.45 "Selection.ShapeRange.Top = 109.1 Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionPage Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionPage Selection.ShapeRange.Left = wdShapeCenter Selection.ShapeRange.Top = wdShapeCenter Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.LayoutInCell = True Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.ZOrder 4 Selection.ShapeRange.ZOrder msoSendBackward End If End If If Selection ＂＂ Then If Selection.InlineShapes.Count 0 Then "Selection.InlineShapes(1).Fill.Visible = msoFalse "Selection.InlineShapes(1).Fill.Solid "Selection.InlineShapes(1).Fill.Transparency = 0# "Selection.InlineShapes(1).Line.Weight = 0.75 "Selection.InlineShapes(1).Line.Transparency = 0# "Selection.InlineShapes(1).Line.Visible = msoFalse "Selection.InlineShapes(1).LockAspectRatio = msoFalse "Selection.InlineShapes(1).Width = CentimetersToPoints(28.9) "Selection.InlineShapes(1).Height = CentimetersToPoints(20.2) "Selection.InlineShapes(1).PictureFormat.Brightness = 0.5 "Selection.InlineShapes(1).PictureFormat.Contrast = 0.5 "Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic "Selection.InlineShapes(1).PictureFormat.CropLeft = 0# "Selection.InlineShapes(1).PictureFormat.CropRight = 0# "Selection.InlineShapes(1).PictureFormat.CropTop = 0# "Selection.InlineShapes(1).PictureFormat.CropBottom = 0# Selection.InlineShapes(1).ConvertToShape "属性转换（InlineShapes(1)转换为ShapeRange) Selection.ShapeRange.Fill.Visible = msoFalse "Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) Selection.ShapeRange.Rotation = 270# "Selection.ShapeRange.PictureFormat.Brightness = 0.5 "Selection.ShapeRange.PictureFormat.Contrast = 0.5 "Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositi...

在VB编程中如何插入图片

新建工程，点菜单：工程\部件\——选：Microsoft Common Dialog Control 6.0在窗体中加入：Command1、CommonDialog1，将下列代码Copy到代码窗口中：Private Sub Command1_Click（) "文件打开 On Error Resume Next "设置错误处理 Dim openFilename As String With CommonDialog1 .CancelError = True .InitDir = ＂C:\＂ .Filter = ＂位图文件（*.BMP）|*.BMP|JPEG(*.JPG;*.JPEG;*.JPE;*.JFIF)|*.JPG;*.JPEG;*.JPE;*.JFIF|GIF(*.GIF)|*.GIF|TIF(*.TIF;*.TIFF)|*.TIF;*.TIFF|所有文件|*.*＂ .FilterIndex = 2 .Flags = &H200000 "允许长文件名 .ShowOpen If Err.Number = 32755 Then Exit Sub "若按取消按钮，则退出过程 openFilename = .FileName "获得要打开的文件名 Form1.Picture = LoadPicture(openFilename) End WithEnd SubPrivate Sub Form_Load() Command1.Caption = ＂选择图片＂End Sub...

VB编程中如果想插入随意向窗体里面插入一个图片要怎么做？指的是...

新建工程，点菜单：工程\部件\——选：Microsoft Common Dialog Control 6.0 在窗体中加入：Command1、CommonDialog1， 将下列代码Copy到代码窗口中： Private Sub Command1_Click（) "文件打开 On Error Resume Next "设置错误处理 Dim openFilename As String With CommonDialog1 .CancelError = True .InitDir = ＂C:\＂ .Filter = ＂位图文件（*.BMP）|*.BMP|JPEG(*.JPG;*.JPEG;*.JPE;*.JFIF)|*.JPG;*.JPEG;*.JPE;*.JFIF|GIF(*.GIF)|*.GIF|TIF(*.TIF;*.TIFF)|*.TIF;*.TIFF|所有文件|*.*＂ .FilterIndex = 2 .Flags = &H200000 "允许长文件名 .ShowOpen If Err.Number = 32755 Then Exit Sub "若按取消按钮，则退出过程 openFilename = .FileName "获得要打开的文件名 Form1.Picture = LoadPicture(openFilename) End With End Sub Private Sub Form_Load() Command1.Caption = ＂选择图片＂ End Sub "当你选择一幅图片时，就会在窗体中显示出来

用VB向WORD插入图片的问题,请有经验的给教教我,怎么样能精确...

二是可以使用“图片”工具栏中的设置图片格式按钮1、在文档中插入剪贴画的操作是通过执行“插入”→“图片”→“剪贴画”菜单命令实现的。

2、插入图片文件的方法是。

6、插入艺术字可以通过执行“插入”→“图片”→“艺术字”菜单命令实现。

5、文本框是一种包含文字的图形对象，在文本框中可以输入文本、插入图片。

3：执行“插入”→“图片”→“来自文件”菜单命令，在“插入图片”对话框中，找到存放图片的文件夹和相应的图片后，单击“插入”按钮、设置图片格式的方法有两种：一是执行“格式”→“图片”菜单命令，出现“设置图片格式”对话框，进行设置、执行“插入”→“文本框”菜单命令，选择“横排”或“竖排”，将鼠标指针移到需要插入文本框的起始点，按住并拖动鼠标到需要的位置。

4...

Word文档中如何插入图像资料？关于课件制作的问题

发表文章时，在编辑器的最下面有“图片剪切板 （点击标题栏打开）”鼠标单击打开，看到有八个剪切板，点击“浏览”在电脑里选取喜欢的图片，选好后“打开”，图片就在剪切板里显示了。

插入图片时，先将光标移动到需要添加图片的文字部位，再点击剪切板上的“插入图片”就可以了。

【插又插图片】word中图片的问题word中插入了一图片,放置于文字...

第一种方法是，选中文字将它们缩小字号，小到比图片小了，就可以选择到图片了 第二种方法是，可以尝试在那些覆盖在图片的文字上任选中间一个字，回车几次，相当于把文字中间断开，只露出无文字的图片。

在断开的无字图片上点击鼠标，可移动图片；待将图片设置合适位置后，删除刚才的回车，恢复文字本来位置。