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

を合わせてみてください。