Excel中的中心圖像單元格

Question

以下代碼將圖像插入到Excel工作簿的單元格a1中。假設我已經建立了單元格寬度，我將如何將這個圖像放在單元格中？謝謝！

Set objExcel = CreateObject("Excel.Application") 

objExcel.Visible = True 
objExcel.DisplayAlerts=False 

Set objWorkbook1= objExcel.Workbooks.Open("workbook.xlsx") 
Set Xlsheet = objWorkbook1.Worksheets("Cover") 

Xlsheet.Range("a1").Activate 
Xlsheet.Pictures.Insert("logo.png") 

objWorkbook1.saveAs "workbook_center.xlsx", 51 
objWorkbook1.close 

objExcel.DisplayAlerts=True 

set objExcel = Nothing 

Answer 1

你可以嘗試電池

Range("A1").HorizontalAlignment = xlCenter 
Range("A1").VerticalAlignment = xlCenter 

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-horizontalalignment-property-excel

嘗試記錄與不同的細胞路線宏，看看記錄產生，您可以納入你當前的代碼對齊。