Clase PublishObject (Excel VBA)

La clase PublishObject representa un elemento de un libro que se ha guardado en una página web y que puede actualizarse según los valores especificados por las propiedades y métodos del objeto PublishObject .

Los principales procedimientos de la clase PublishObject son Delete, PublishObjects.Add y PublishObjects.Delete

Set

Para usar una variable de clase PublishObject, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase PublishObject : PublishObjects.Item, PublishObjects.Add y Workbook.PublishObjects

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos PublishObject en una colección.

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

Los principales métodos de la clase PublishObject son

Delete - Elimina el objeto.

ActiveWorkbook.PublishObjects(1).Delete

PublishObjects.Add - Crea un objeto que representa un elemento de un documento guardado en una página web.

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

PublishObjects.Delete - Elimina el objeto.

ActiveWorkbook.PublishObjects.Delete

Otros Métodos

Publish - Guarda un elemento o una colección de elementos de un documento en una página web.

PublishObjects.Publish - Guarda una copia del elemento o elementos de la hoja de cálculo que se han agregado a la colección PublishObjects a una página web.

Propiedades

AutoRepublish Cuando se guarda un libro, Microsoft Excel determina si algún elemento de la colección PublishObjects tiene la propiedad establecida en truey, si es así, vuelve a publicarla.

ActiveWorkbook.PublishObjects(1).AutoRepublish = True

DivID Devuelve el identificador único que se usa para identificar una

etiqueta HTML en una página web.

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

Filename Devuelve o establece la dirección URL (en la intranet o en la web) o la ruta de acceso (local o de red) a la ubicación donde se guardó el objeto de origen especificado.

ActiveWorkbook.PublishObjects(1).Filename =

HtmlType Devuelve o establece el tipo de HTML generado por Microsoft Excel al guardar el elemento especificado en una página web.

ActiveWorkbook.PublishObjects(1).HtmlType = xlHtmlStatic

Parent Devuelve el objeto primario del objeto especificado.

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

Sheet Devuelve el nombre de la hoja del objeto PublishObject especificado.

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

Source Devuelve un valor de tipo Variant que representa el nombre exclusivo que identifica los elementos que tienen en la propiedad SourceType un valor xlSourceRange, xlSourceChart, xlSourcePrintArea, xlSourceAutoFilter, xlSourcePivotTable o xlSourceQuery.

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

SourceType Devuelve un valor XlSourceType que representa el tipo de elemento que se va a publicar.

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

Title Devuelve o establece el título de la página web cuando el documento se guarda como una página web.

ActiveWorkbook.PublishObjects(1).Title =

PublishObjects.Count Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.PublishObjects.Count

PublishObjects.Item Devuelve un solo objeto de una colección.

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

PublishObjects.Parent Devuelve el objeto primario del objeto especificado.

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