Vba PublishObjects- Как изменить размер в html?

Question

Следующий код публикует диапазон от Excel до HTML-файла. Есть ли способ сделать опубликованный диапазон разным размером, чем стандартный? В качестве альтернативы, как я могу опубликовать версию изображения в диапазоне до того же файла?

ObjectToPaste = xlApp.Range(UserformObj.listCharts.SelectedItem).Address 
      Title = UserformObj.listCharts.SelectedItem.SubItems(4) 
      Caption = IIf(KUKUKU3 = 1, Title, "") 
      On Error Resume Next 
      With oWB.PublishObjects.Add(xlSourceRange, Where, sht, _ 
             ObjectToPaste, xlHtmlStatic, "", Caption) 
       .Publish (False) 
       .AutoRepublish = UpdateHTml 
      End With 
      On Error GoTo 0 

Answer 1

Per MSDN, вы можете установить диапазон источника. (См "$ G $ 3: $ H $ 6")

Пример:

With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _ 
Filename:="\\Server\stockreport.htm", Sheet:="First Quarter", Source:="$G$3:$H$6", _ 
HtmlType:=xlHtmlStatic, DivID:="Book1_4170") 
.Publish (True) 
.AutoRepublish = False 
End With