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會進入無響應狀態。圖片越多，無響應的時間越長。