wordvba有无背景图片

Ⅰ WORD里有没有自带的背景图片或是颜色

颜色和图片都可以选的，格式-背景，就可以自选颜色和自定义图片了，图片在填充效果里可以加

Ⅱ vba 是否支持无背景的图标文件

您好，您可以试试：
一、第一步:先在窗体上插入一张照片.
第二步:插入一个Image控件,然后在Image里面插入第二张照片.
第三步:调节Image控件的大小和位置,满足你的要求.
或者是：
二、点击 ... 按钮，选择图片。
不能添加2张，新添加的覆盖原来的图片。
可以先用 PS 等图片处理软件处理图片后，再添加。

Ⅲ 在word中自动插入图片 vba代码

Sub 批量插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" ‘这里输入你要插入图片的目标文件夹
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此处修改相片宽,单位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
执行此代码后，弹出的选择对话框， 全选目标文件夹下的所有图片文件之后，点击确定。然后静静的等待电脑完成处理工作，次数word会进入无响应状态。图片越多，无响应的时间越长。

Ⅳ VBA怎样设置根据单元格值删除背景图片

Sub BackgroundPicture()
Dim i%, fPath$, fName$
fPath = "C:\Users\Administrator\Desktop\" '这里根据实际情形设置XXX图片所在的文件夹的路径
fName = "xxx.jpg" '这里根据实际情形修改图片的名称，含图片的后缀名
f = fPath & fName
For i = 1 To Sheets.Count '遍历所有工作表
If Sheets(i).Range("A1").Value = 1 Then
Sheets(i).SetBackgroundPicture (f)
End If
Next
End Sub
A1=1时，因为背景有无图片最终都要替换为XXX,所以删不删除也无所谓了。这个图片在背景里只能保存一张，不存在图片叠加的情形。

Ⅳ 如何利用VBA完成在Word中设置背景的功能

前提你有vba 变程的基础知识，定义你的宏sub setBG() ActiveDocument.Background.Fill.UserPicture "C:\BG.bmp"end Sub 就可以将背景 改为 C:\BG.bmp UserPicture 方法参阅应用于示例特性 用一张图片的大图像来填充指定图形。如果要用一个图片的多份影像来填充图形，请用 UserTextured 方法。expression.UserPicture(PictureFile)expression 必需。返回 FillFormat 对象的表达式。PictureFile String 类型，必需。图片文件名。

Ⅵ 在word中自动插入图片 vba，这是一段代码

你的第1段代码可以插入图片啊，有什么问题？
第2段的话，把倒数第2行的with移到上一行end 的后面。
倒数第6行的 ,,Flase 改成,Flash,(逗号移到flash后面)
VBA不是很熟，希望能帮到你。

Ⅶ vba如何判断word文档是否有背景设置背景是颜色，图片或空白如何识别

有没有使用图片做背景，可以这样判断：
if ActiveDocument.Background.Fill.Type=msoFillPicture then
msgbox "有图片背景!"
endif

Ⅷ word怎样插入背景图片做为背景

材料/工具：wps 2016

1、打开电脑，打开一个word2016文档

Ⅸ office word2019如何设置第一页有背景图片，第二页开始无背景图片，最后一页有背景图片

首页和尾页使用同一个幻灯片母版，其他页使用另一个幻灯片母版。

Ⅹ word vba 插入图片

Sub 批量插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" ‘这里输入你要插入图片的目标文件夹
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此处修改相片宽,单位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
执行此代码后，弹出的选择对话框， 全选目标文件夹下的所有图片文件之后，点击确定。然后静静的等待电脑完成处理工作，次数word会进入无响应状态。图片越多，无响应的时间越长。