Propriedade VisWebPageSettings.StoreInFolder

Determina se os arquivos de suporte para a página da Web a ser criada são colocados em uma subpasta que tem o mesmo nome do arquivo HTML raiz. Leitura/gravação.

Sintaxe

expressão. StoreInFolder

Expressão Uma expressão que retorna um objeto VisWebPageSettings .

Valor de retorno

Long

Comentários

Defina StoreInFolder como um valor não zero (True) para colocar arquivos de página da Web com suporte em uma subpasta que tem o mesmo nome que o arquivo HTML raiz; caso contrário, defina-o como zero (False).

Se você definir a propriedade StoreInFolder como True (não zero), o Microsoft Visio colocará os arquivos de suporte em uma subpasta prefixada com o mesmo nome que o arquivo .htm. Se o arquivo .htm ou a subpasta for movido ou excluído, sua subpasta correspondente ou .htm arquivo também será movido ou excluído.

Se você definir a propriedade StoreInFolder como False (0), o Visio colocará todos os arquivos de suporte na mesma pasta que o arquivo .htm.

Definir a propriedade StoreInFolder como True é o equivalente a selecionar a caixa de seleção Organizar arquivos de suporte em uma caixa de seleção de pastas na guia Geral da caixa de diálogo Salvar como Página da Web (Guia >BackstageButtonSalvar como>Salvar como tipo>Página da Web (*.htm;*.html)>Publicar).

Exemplo

A macro a seguir mostra como definir a propriedade StoreInFolder para que uma subpasta que contenha todos os arquivos de suporte de uma página da Web e tenha o mesmo nome que o arquivo .htm seja criado.

Antes de executar essa macro, substitua path\filename.htm por um caminho de destino válido em seu computador e pelo nome de arquivo que você deseja atribuir à sua página da Web.

Public Sub StoreInFolder_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsowebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .StoreInFolder = True 
 .TargetPath = "path\filename.htm" 
 End With 
 
 vsoSaveAsWeb.CreatePages 
 End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.