Classe PublishObject (Excel VBA)

A classe PublishObject representa um item em uma pasta de trabalho que foi salva em uma página da Web e pode ser atualizada de acordo com os valores especificados pelas propriedades e métodos do objeto PublishObject.

Os principais procedimentos da classe PublishObject são Delete, PublishObjects.Add e PublishObjects.Delete

Set

Para usar uma variável de classe PublishObject, ela primeiro precisa ser instanciada por exemplo

Dim pblobj as PublishObject
Set pblobj = ActiveWorkbook.PublishObjects(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo PublishObject: PublishObjects.Item, PublishObjects.Add e Workbook.PublishObjects

For Each

Aqui está um exemplo de processamento dos itens PublishObject em uma coleção.

blnChartFound = False 
For Each objPO In Workbooks(1).PublishObjects 
 If objPO.SourceType = xlSourceChart Then 
 strFirstPO = objPO.Source 
 blnChartFound = True 
 Exit For 
 End If 
Next objPO

Métodos

Estes são os principais métodos da classe PublishObject

Delete - Exclui o objeto.

ActiveWorkbook.PublishObjects(1).Delete

PublishObjects.Add - Cria um objeto que representa um item em um documento salvo em uma página da Web. Esses objetos facilitam atualizações subsequentes na página da Web enquanto as alterações automatizadas estão sendo feitas no documento no Microsoft Excel. Retorna um objeto PublishObject.

Dim strFilename As String: strFilename = 
Dim pblobj As PublishObject
Set pblobj = ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceAutoFilter, Filename:=strFilename)

PublishObjects.Delete - Exclui o objeto.

ActiveWorkbook.PublishObjects.Delete

Estes são os principais métodos da classe

Publish - Salva um item ou uma coleção de itens em um documento em uma página da Web.

PublishObjects.Publish - Salva uma cópia do item ou itens na planilha que foram adicionados à coleção PublishObjects em uma página da Web.

Propriedades

AutoRepublish Quando uma pasta de trabalho é salva, o Microsoft Excel determina se qualquer item na coleção PublishObjects tem a propriedade autorepublic definida como truee, em caso afirmativo, o republicará. O valor padrão é False. Boolean de leitura/gravação.

ActiveWorkbook.PublishObjects(1).AutoRepublish = True

DivID Retorna o identificador exclusivo usado para identificar uma marca

HTML em uma página da Web. A marca é associada a um item em um documento salvo em uma página da Web. Um item pode ser uma pasta de trabalho inteira, uma planilha, um intervalo de impressão selecionado, um intervalo de AutoFiltro, um intervalo de células, um gráfico, um relatório de tabela dinâmica ou uma tabela de consulta. String somente leitura.

Dim strDivID As String
strDivID = ActiveWorkbook.PublishObjects(1).DivID

Filename Retorna ou define a URL na intranet ou na Web ou o caminho (local ou de rede) para o local onde o objeto de origem especificado foi salvo. String de leitura/gravação.

ActiveWorkbook.PublishObjects(1).Filename =

HtmlType Retorna ou define o tipo de HTML gerado pelo Microsoft Excel quando você salva o item especificado em uma página da Web. Pode ser uma das constantes XlHtmlType que especificam se o item é estático ou interativo na página da Web. O valor padrão é xlHtmlStatic.

ActiveWorkbook.PublishObjects(1).HtmlType = xlHtmlStatic

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.PublishObjects(1).Parent

Sheet Retorna o nome de planilha do objeto PublishObject especificado. String somente leitura.

Dim strSheet As String
strSheet = ActiveWorkbook.PublishObjects(1).Sheet

Source Retorna um valor que representa o nome exclusivo que identifica itens que possuem um valor de propriedade SourceType igual a xlSourceRange, xlSourceChart, xlSourcePrintArea, xlSourceAutoFilter, xlSourcePivotTable ou xlSourceQuery.

Dim strSource As String
strSource = ActiveWorkbook.PublishObjects(1).Source

SourceType Retorna um valor XlSourceType que representa o tipo de item que está sendo publicado.

Dim xstSourceType As XlSourceType
xstSourceType = ActiveWorkbook.PublishObjects(1).SourceType

Title Retorna ou define o título da página da Web quando o documento é salvo como uma página da Web. String de leitura/gravação.

ActiveWorkbook.PublishObjects(1).Title =

PublishObjects.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveWorkbook.PublishObjects.Count

PublishObjects.Item Retorna um único objeto de uma coleção.

Dim pblobjItem As PublishObject
Set pblobjItem = ActiveWorkbook.PublishObjects(Index:=1)

PublishObjects.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.PublishObjects.Parent