EXCELVBA在word中插入多张照片,运行程序后照片位置放错。
以word2007为例,方法如下:1、点击图片,另存为“筛选过的网页”。
2、打开存放的文件夹,就多了一个网页文件夹。
3、打开网页文件夹,看看刚才存放的图片,其格式就是jpg。
用vba给word的 表格中的图片 加边框时 边框加到表格上
经测试编写VBA代码如下:Sub 嵌入式图片加边框()Application.ScreenUpdating = FalseDim a As IntegerDim pic As InlineShapeDim aBorder As Bordera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox ("没有发现嵌入式图片")End IfFor Each pic In ActiveDocument.InlineShapespic.Borders.Enable = TrueWith picFor Each aBorder In pic.BordersWith aBorder.LineWidth = wdLineWidth025pt.Color = wdColorBlueEnd WithNext aBorder.ScaleHeight = 100.ScaleWidth = 100End WithNextApplication.ScreenUpdating = TrueEnd SubSub 取消边框()Dim a As Integera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox ("没有发现嵌入式图片")End IfActiveDocument.InlineShapes(1).Borders.Enable = FalseEnd SubPrivate Sub CommandButton1_Click()嵌入式图片加边框End SubPrivate Sub CommandButton2_Click()取消边框End Sub效果如下:
利用VBA如何将批量图片导入WORD的指定表格格式里?
将excel表格中的数据批量插入到word中的操作方法:1、单击插入----对象按钮;2、弹出插入对话框对话框,选择由文件创建对话框,单击浏览按钮;3、弹出浏览对话框,选择需要插入有Excel文件;4、单击插入按钮即可。
注:(1)若选中链接到文件,源文件修改,Word中的表格也随之改变;(2)若选中显示为图片,则以图标的形式插入到Word,双击可以打开其源文件。
关于图片批量导入word中并在图片上方附加文件名的VBA代码编辑
展开全部 Sub 批量插入图片()Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = "E:\工作文件" ‘这里输入你要插入图片的目标文件夹If .Show = -1 ThenFor Each Fn In .SelectedItemsSelection.Text = Basename(Fn) '这两句移到这里Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSet MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸WidthNum = MyPic.Widthc = 6 '在此处修改相片宽,单位厘米MyPic.Width = c * 28.35MyPic.Height = (c * 28.35 / WidthNum) * MyPic.HeightIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext FnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "\" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4)End Function执行此代码后,弹出的选择对话框, 全选目标文件夹下的所有图片文件之后,点击确定。
然后静静的等待电脑完成处理工作,次数word会进入无响应状态。
图片越多,无响应的时间越长。
如何通过VBA打开word中插入的工程图(CAD)对象
展开全部 方法/步骤 首先我们打开带有cad图形对象的word文档. 然后在cad图形对象上点击右键选择右键菜单中的设置对象格式。
在弹出的设置对象格式中我们点击版式--格式。
在布局中我们选择文字环绕--浮与文字上方。
然后点击确定,当然也可以选择文字下方。
在回到设置对象格式中点击确定。
然后再返回的word文档中我们点击插入的cad文档,当在对象周围出现灰色的点以后我们就可以随意移动来。
这是任意移动的效果,如果想编辑CAD可双击在打开的cad软件中编辑。
...
Word中VBA代码如何处理嵌入的图片真正做到居中
按Alt+F11组合键打开VBA窗口,双击左侧的“工程资源管理器”窗口的“ThisDocument”,在弹出的空白窗口中输入以下代码:展开全部Sub AAA1()Dim myS As InlineShapeApplication.ScreenUpdating = FalseFor Each myS In ActiveDocument.InlineShapesIf Len(myS.Range.Paragraphs(1).Range.Text) = 2 ThenmyS.Range.Paragraphs.Alignment = wdAlignParagraphCenterEnd IfNextApplication.ScreenUpdating = TrueEnd Sub按F5键执行即可。
...
转载请注明出处51数据库 » vba 在word中插入图片