Clase PublishObjects (Excel VBA)

Colección de todos los objetos PublishObject del libro. Para usar una variable de clase PublishObjects, primero debe ser instanciado, por ejemplo

Dim pos as PublishObjects
Set pos = ActiveWorkbook.PublishObjects

For Each

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

Dim pblobj As PublishObject
For Each pblobj In ActiveWorkbook.PublishObjects
	
Next pblobj

Add

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

Add (SourceType, Filename, Sheet, Source, HtmlType, DivID, Title)

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

Arguments

Estos son los argumentos con nombre :

SourceType (XlSourceType) - Tipo de origen.

Valores posibles son

Filename - String

Optional arguments

Los siguientes argumentos son opcionales

Sheet - Nombre de la hoja de cálculo que se guardó como página web

Source (XlSourceType) - Nombre exclusivo utilizado para identificar elementos que tienen una de las siguientes constantes como argumento SourceType: xlSourceAutoFilter, xlSourceChart, xlSourcePivotTable, xlSourcePrintArea, xlSourceQuery o xlSourceRange.

Valores posibles son

HtmlType (XlHtmlType) - Especifica si el elemento se ha guardado como un componente web interactivo de Microsoft Office o como texto e imágenes estáticos.

DivID - Identificador único usado en la etiqueta DIV de HTML para identificar el elemento en la Página Web

Title (String) - El título de la Página Web.

Count

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

Dim lngCount As Long
lngCount = ActiveWorkbook.PublishObjects.Count

Delete

Elimina el objeto.

ActiveWorkbook.PublishObjects.Delete

Item

Devuelve un solo objeto de una colección.

Item (Index)

Index: Nombre o número de índice del objeto.

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

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.

ActiveWorkbook.PublishObjects.Publish