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 = _ wdRelativeHorizo...

word里批量旋转嵌入式图片

InlineShapes.Count = 0 ActiveDocument，将如下代码直接粘贴进来。

Sub Rotate() Do Until ActiveDocument，然后按F5运行即可.Select ActiveDocument.InlineShapes(1).ConvertToShape Selection.ShapeRange，图片的位置会发生变动，而且只对所有的嵌入式图片有效，但旋转之后，只能满足批量旋转图片的目的.9 Loop end sub采纳本方法之前，先备份文档，以免转换后图片位置发生变动导致整篇文档的页面布局发生变化难以恢复Word2007及以上版本才能对外部图片进行旋转操作。

按Alt+F11，打开VBA编辑器.IncrementRotation 180# '这里的180#代码旋转的度数。

要想批量旋转，只能采用Word2007及以上版本，以及用VBA来实现就可以了。

不过，这个VBA代码得到的结果，0~359.InlineShapes(1)...

C#打印表单,表单包含标题,内容。

用word最好，代码是 using Word； 下面的例子中包括C#对Word文档的创建、插入表格、设置样式等操作：（例子中代码有些涉及数据信息部分被省略，重要是介绍一些C#操作word文档的方法） public string CreateWordFile(string CheckedInfo) ...{ string message = ＂＂; try ...{ Object Nothing = System.Reflection.Missing.Value; Directory.CreateDirectory(＂C:/CNSI＂)； //创建文件所在目录 string name = ＂CNSI_＂ + DateTime.Now.ToShortString()+＂.doc＂; object filename = ＂C://CNSI//＂ + name； //文件保存路径 //创建Word文档 Word.Application WordApp = new Word.ApplicationClass(); Word.Document WordDoc = WordApp.Documents.Add(ref Nothing, ref Nothing, ref Nothing, ref Nothing)； //添加页眉 WordApp.ActiveWindow.View.Type = WdViewType.wdOutlineView; WordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekPrimaryHeader; WordApp.ActiveWindow.ActivePane.Selection.InsertAfter（＂[页眉内容]＂）； WordApp.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight；//设置右对齐 WordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument；//跳出页眉设置 WordApp.Selection.ParagraphFormat.LineSpacing = 15f；//设置文档的行间距 //移动焦点并换行 object count = 14; object WdLine = Word.WdUnits.wdLine；//换一行； WordApp.Selection.MoveDown(ref WdLine, ref count, ref Nothing)；//移动焦点 WordApp.Selection.TypeParagraph（)；//插入段落 //文档中创建表格 Word.Table newTable = WordDoc.Tables.Add(WordApp.Selection.Range, 12, 3, ref Nothing, ref Nothing)； //设置表格样式 newTable.Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleThickThinLargeGap; newTable.Borders.InsideLineStyle = Word.WdLineStyle.wdLineStyleSingle; newTable.Columns[1].Width = 100f; newTable.Columns[2].Width = 220f; newTable.Columns[3].Width = 105f； //填充表格内容 newTable.Cell(1, 1).Range.Text = ＂产品详细信息表＂； newTable.Cell(1, 1).Range.Bold = 2；//设置单元格中字体为粗体 //合并单元格 newTable.Cell(1, 1).Merge(newTable.Cell(1, 3)); WordApp.Selection.Cells.VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter；//垂直居中 WordApp.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter；//水平居中 //填充表格内容 newTable.Cell(2, 1).Range.Text = ＂产品基本信息＂； newTable.Cell(2, 1).Range.Font.Color = Word.WdColor.wdColorDarkBlue；//设置单元格内字体颜色 //合并单元格 newTable.Cell(2, 1).Merge(newTable.Cell(2, 3)); WordApp.Selection.Cells.VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter； //填充表格内容 newTable.Cell(3, 1).Range.Text = ＂品牌名称：＂； newTable.Cell(3, 2).Range.Text = BrandName； //纵向合并单元格 newTable.Cell(3, 3).Select（)；//选中一行 object moveUnit = Word.WdUnits.wdLine; object moveCount = 5; object moveExtend = Word.WdMovementType.wdExtend; WordApp.Selection.MoveDown(ref moveUnit, ref moveCount, ref moveExtend); WordApp.Selection.Cells.Merge（)； //插入图片 string FileName = Picture；//图片所在路径 object LinkToFile = false; object SaveWithDocument = true; object Anchor = WordDoc.Application.Selection.Range; WordDoc.Application.ActiveDocument.InlineShapes.AddPicture(FileName, ref LinkToFile, ref SaveWithDocument, ref Anchor); WordDoc.Application.ActiveDocument.InlineShapes[1].Width = 100f；//图片宽度 WordDoc.Application.ActiveDocument.InlineShapes[1].Height = 100f；//图片高度 //将图片设置为四周环绕型 Word.Shape s = WordDoc.Application.ActiveDocument.InlineShapes[1].ConvertToShape(); s.WrapFormat.Type = Word.WdWrapType.wdWrapSquare; newTable.Cell(12, 1).Range.Text = ＂产品特殊属性＂； newTable.Cell(12, 1).Merge(newTable.Cell(12, 3)）； //在表格中增加行 WordDoc.Content.Tables[1].Rows.Add(ref Nothing); WordDoc.Paragraphs.Last.Range.Text = ＂文档创建时间：＂ + DateTime.Now.ToString（)；//“落款” WordDoc.Paragraphs.Last.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight； //文件保存 WordDoc.SaveAs(ref filename, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing); WordDoc.Close(ref Nothing, ref Nothing, ref Nothing); WordApp.Quit(ref Nothing, ref Nothing, ref Nothing); message=name+＂文档生成成功，以保存到C:CNSI下＂； } catch ...{ message = ＂文件导出异常！＂； } return message； } 好好琢磨琢磨吧。

oracle 动态传入表名,怎么做？ 高手指点

Doc.InlineShapes.AddPicture(picturePath, ref linkToFile, ref saveWithDocument, ref range);oDoc.Application.ActiveDocument.InlineShapes[1].Width = width； //设置图片宽度oDoc.Application.ActiveDocument.InlineShapes[1].Height = hight； //设置图片高度//将图片设置为四周环绕型Word.Shape s = oDoc.Application.ActiveDocument.InlineShapes[1].ConvertToShape();s.WrapFormat.Type = Word.WdWrapType.wdWrapSquare;}

转载请注明出处51数据库 » word convertoshape