Option Explicit
Dim xlApp As Excel.Application
'Dim xlApp As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
'圖片的屬性不得設為“大小和位置都固定”，切記。
Private Sub Command1_Click()
Unload Me
Set xlApp = New Excel.Application
xlApp.ScreenUpdating = False '不重繪
Set xlApp = CreateObject("excel.application") '第一層
xlApp.WindowState = xlMinimized ' xlMaximized '視窗最小化/最大化
xlApp.Visible = True 'False 'excel選單欄是否可見
Application.DisplayAlerts = False 'True
Set wb = CreateObject(App.Path & "\xxx.xlsx")'按自己檔案路徑修改’
wb.Windows(1).Visible = True
wb.Sheets("sheet1").Select
Range("A1").Select '
Selection.Copy'復制A1單元中的圖片
wb.Sheets("sheet2").Select
Range("B2").Select'定位，粘貼到哪
ActiveSheet.Pictures.Paste '以圖片格式粘貼到B2單元格
wb.Save
wb.Close
'xlApp.Quit
'xlApp = Nothing
MsgBox "完畢！"
End
End Sub
uj5u.com熱心網友回復：
你是不是不知道如何選擇Sheet1中的圖片?uj5u.com熱心網友回復：
@milaoshu1020,正是，望不吝賜教
uj5u.com熱心網友回復：
ActiveSheet.Pictures(1).Copy這行代碼可以復制當前作業表的第一個圖片;
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/26863.html
標籤：VB基礎類
上一篇：vbs
下一篇：抽取word里的表格到新檔案