Classe PublishObject (Excel VBA)

La classe PublishObject représente un élément d'un classeur qui a été enregistré dans une page Web et qui peut être actualisé en fonction des valeurs spécifiées par les propriétés et méthodes de l'objet PublishObject .

Les procédures principales de la classe PublishObject sont Delete, PublishObjects.Add et PublishObjects.Delete

Set

Pour utiliser une variable de classe PublishObject, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe PublishObject : PublishObjects.Item, PublishObjects.Add et Workbook.PublishObjects

For Each

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

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éthodes

Les méthodes principales de la classe PublishObject sont

Delete - Cette méthode supprime l'objet.

ActiveWorkbook.PublishObjects(1).Delete

PublishObjects.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 .

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

PublishObjects.Delete - Cette méthode supprime l'objet.

ActiveWorkbook.PublishObjects.Delete

Autre Méthodes

Publish - Enregistre dans une page Web un élément ou une collection d’éléments dans un document.

PublishObjects.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.

Propriétés

AutoRepublish Lors de l’enregistrement d’un classeur, Microsoft Excel détermine si la propriété republier d’un élément de la collection PublishObjects a la valeur trueet, si c’est le cas, le republie. La valeur par défaut est False. Boolean (en lecture/écriture).

ActiveWorkbook.PublishObjects(1).AutoRepublish = True

DivID Renvoie l’identificateur unique utilisé pour identifier une balise

html sur une page Web. La balise est associée à un élément dans un document que vous avez enregistré dans une page Web. Il peut s’agir d’un classeur entier, d’une feuille de calcul, d’une plage d’impression sélectionnée, d’une plage de filtre automatique, d’une plage de cellules, d’un graphique, d’un rapport de tableau croisé dynamique ou d’une table de requête. Type de données String en lecture seule.

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

Filename Cette propriété renvoie ou définit l’URL (sur l’intranet ou le Web) ou le chemin d’accès (local ou réseau) de l’emplacement où l’objet source spécifié a été enregistré. String en lecture/écriture.

ActiveWorkbook.PublishObjects(1).Filename =

HtmlType Cette propriété renvoie ou définit le type de code HTML généré par Microsoft Excel lorsque vous enregistrez l’élément spécifié dans une page Web. Peut être une des constantes XlHtmlType spécifiant si l’élément est statique ou interactif sur la page Web. La valeur par défaut est xlHtmlStatic.

ActiveWorkbook.PublishObjects(1).HtmlType = xlHtmlStatic

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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

Sheet Cette propriété renvoie le nom de la feuille de l'objet PublishObject spécifié. Type de données String en lecture seule.

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

Source Cette propriété renvoie une valeur de type Variant qui représente le nom unique identifiant les éléments dont la propriété SourceType a pour valeur xlSourceRange, xlSourceChart, xlSourcePrintArea, xlSourceAutoFilter, xlSourcePivotTable ou xlSourceQuery.

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

SourceType Renvoie une valeur XlSourceType qui représente le type d’élément en cours de publication.

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

Title Cette propriété renvoie ou définit le titre de la page Web lorsque le document est enregistré en tant que page Web. String en lecture/écriture.

ActiveWorkbook.PublishObjects(1).Title =

PublishObjects.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

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

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

PublishObjects.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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