Classe PublishObjects (Excel VBA)

Collection de tous les objets PublishObject du classeur. Pour utiliser une variable de classe PublishObjects, elle doit d'abord être instanciée, par exemple

Dim pos as PublishObjects
Set pos = ActiveWorkbook.PublishObjects

For Each

Voici un exemple de traitement des éléments PublishObjects dans une collection

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

Add

Crée un objet qui représente un élément dans un document enregistré dans une page Web. Ces objets facilitent les mises à jour ultérieures de la page Web, tandis que des modifications automatisées sont apportées au document dans Microsoft Excel. Renvoie un objet PublishObject .

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

Les arguments nommés :

SourceType (XlSourceType) - Le type de la source.

Valeurs possibles sont

Filename (String) - L’URL (sur l’intranet ou le Web) ou le chemin d’accès (local ou réseau) auquel l’objet source a été enregistré.

Optional arguments

Les arguments suivants sont facultatifs

Sheet - Nom de la feuille de calcul qui a été enregistrée en tant que page Web

Source (XlSourceType) - Nom unique utilisé pour identifier les éléments dont l’argument SourceType est l’une des constantes suivantes: xlSourceAutoFilter, xlSourceChart, xlSourcePivotTable, xlSourcePrintArea, **xlSourceQuery **ou xlSourceRange. Si SourceType prend la valeur xlSourceRange, Source spécifie une plage, qui peut être un nom défini. Si SourceType prend la valeur xlSourceChart, xlSourcePivotTable ou xlSourceQuery, Source spécifie le nom d'un graphique, d'un rapport de tableau croisé dynamique ou d'une table de requête.

Valeurs possibles sont

HtmlType (XlHtmlType) - Indique si l'élément est enregistré en tant que composant Microsoft Office Web Component ou comme texte et images statiques. Peut être une des constantes XlHtmlType : xlHtmlCalc, xlHtmlChart, xlHtmlListou xlHtmlStatic.

DivID - Identificateur unique utilisé dans la balise HTML DIV pour identifier l’élément sur la page Web

Title (String) - Titre de la page Web.

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveWorkbook.PublishObjects.Count

Delete

Cette méthode supprime l'objet.

ActiveWorkbook.PublishObjects.Delete

Item

Cette méthode renvoie un seul objet d'une collection.

Item (Index)

Index: Nom ou numéro d'index de l'objet.

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

Publish

Enregistre une copie de l’élément ou des éléments de la feuille de calcul qui ont été ajoutés à la collection PublishObjects dans une page Web.

ActiveWorkbook.PublishObjects.Publish