Classe PublishObject - 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 (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 . 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)

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

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

Delete

Cette méthode supprime l'objet. 


ActiveWorkbook.PublishObjects(1).Delete

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.

La propriété filename génère une erreur si un dossier dans le chemin d’accès spécifié n’existe pas.


ActiveWorkbook.PublishObjects(1).FileName = _ 
 "\\Server2\Q1\StockReport.htm"

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

Publish

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

La propriété filename renvoie ou définit l’emplacement et le nom du fichier html.

Publish (Create)

Create: Si le fichier HTML existe, l'attribution de la valeur True à cet argument remplace le fichier, tandis que la valeur False insère l'élément ou les éléments à la fin du fichier. Si le fichier n’existe pas, le fichier est créé quelle que soit la valeur de __ l’argument Create.


With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ 
 "\\Server1\sharedfolder\Stockreport.htm", "First Quarter", _ 
 "$D$5:$D$9", xlHtmlStatic, "Book2_25082", "") 
 .Publish (True) 
 .AutoRepublish = True 
End With

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.

Si la propriété SourceType a la valeur xlSourceRange, cette propriété renvoie une plage, qui peut être un nom défini. Si la propriété SourceType a la valeur xlSourceChart, xlSourcePivotTable ou xlSourceQuery, cette propriété renvoie le nom de l'objet, tel qu'un nom de graphique, un nom de rapport de tableau croisé dynamique ou un nom de table de requête.


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. Les valeurs de retour possibles sont xlSourceAutoFilter - Plage de filtre automatique, xlSourceChart - Un graphique, xlSourcePivotTable - Un rapport de tableau croisé dynamique, xlSourcePrintArea - Plage de cellules sélectionnée pour l’impression, xlSourceQuery - Une table de requête (plage de données externes), xlSourceRange - Une plage de cellules, xlSourceSheet - Une feuille de calcul entière, xlSourceWorkbook - Un classeur.


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.

Le titre est généralement affiché dans la barre de titre de la fenêtre lorsque le document est affiché dans le navigateur Web.


Workbooks(1).PublishObjects(1).Title = "Sales Forecast"