DONUT PROJECT 2015 - VBA To Add A Confidentiality Footer Statement In Excel, Word, or PowerPoint - Adicionando um Rodapé com Status de Confidencialidade no Excel, Word ou PowerPoint

DONUT PROJECT 2015 - VBA To Add A Confidentiality Footer Statement In Excel, Word, or PowerPoint - Adicionando um Rodapé com Status de Confidencialidade no Excel, Word ou PowerPoint


Inserir linhas de Rodapé automaticamente em nossos documentos pode atribuir o tom de seriedade que desejamos a estes.

 Série eBook Donut Projects: 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes



Certifique-se de criar um padrão e afixar este código diretamente na área de abertura do documento modelo no qual todos os seus aplicativos dos MS Office baseiam-se.

No MS Excel

Sub InsertConfidentialityFooter()

'PURPOSE: Add confidentiality statement footer to all worksheets in active workbook

Dim sht As Worksheet

'Loop through each worksheet
  For Each sht In ActiveWorkbook.Worksheets
    sht.PageSetup.LeftFooter = ""
    sht.PageSetup.CenterFooter = "&10CONFIDENTIAL - INTERNAL USE ONLY" 'size 10 font
    sht.PageSetup.RightFooter = ""
    sht.DisplayPageBreaks = False
  Next sht

End Sub

In Microsoft Word

Sub InsertConfidentialityFooter()

'PURPOSE: Add confidentiality statement footer to active document

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
  .Text = "CONFIDENTIAL - INTERNAL USE ONLY"
  .ParagraphFormat.Alignment = wdAlignParagraphCenter
  .Font.Size = 10 'size 10 font
End With

End Sub

No MS PowerPoint

Sub InsertConfidentialityFooter()

'PURPOSE: Add confidentiality statement footer to all slides in active presentation

Dim sld As Slide
Dim shp As Shape

'Loop through each slide in Active Presentation
  For Each sld In ActivePresentation.Slides

    'Test to see if footer exists in Slide Master
      On Error Resume Next
        sld.HeadersFooters.Footer.Visible = msoTrue
   
        If Err.Number <> 0 Then
          'Add Footer To Slide Master
            Call sld.Master.Shapes.AddPlaceholder _
              (ppPlaceholderFooter, 246, 500.5, 228, 28.75)
        End If
      On Error GoTo 0
   
    'Add Footer Text
      sld.HeadersFooters.Footer.Visible = msoTrue
      sld.HeadersFooters.Footer.Text = "CONFIDENTIAL - INTERNAL USE ONLY"

  Next

End Sub

Veja outros códigos:

VBA Excel | Extraindo a Data de uma Célula com Data e Horário - Remove Date from Date and Time VBA Excel | Converta Tudo para Maiúscula - Convert to Upper CaseVBA Excel | Contando Palavras na Planilha - Word Count from Entire Worksheet VBA Excel | Removendo Decimais dos Números - Remove Decimals from Numbers

VBA Excel |  Multiplique todos os Valores por um Número - Multiply all the Values by a Number VBA Excel | Calculando a Raiz Cúbica - Calculate the Cube Root

VBA Excel | Adicionando Letras de A até Z - Add A-Z Alphabets in a Range VBA Excel | Convertendo Numerais Romanos em Arábicos - Convert Roman Numbers into Arabic Numbers

VBA Excel | Converta todos os Números Negativos em Positivos - Remove Negative Signs VBA Excel | Preencha com zeros as Células em Branco - Replace Blank Cells with Zeros

Leia também:

eBook: Série DONUT PROJECT 2015: Projetos e Códigos de Visual Basic for Applications - Autor: André Luiz Bernardes  eBook: Série Top 10 Funções: Top 10 Funções VBA para o Microsoft Excel - Autor: André Luiz Bernardes

eBook: Série Funções Poderosas: 13 Funções Poderosas no MS Excel - Autor: André Luiz Bernardes  eBook: Série Visual Basic For Application: Criando Logs de acesso: Dicas e Códigos de Visual Basic for Applications - Autor: André Luiz Bernardes

eBook: Série VBA Tips: Rastrei seus Dashboards, Scorecards, Reports, Relatórios, Planilhas e Aplicações - Dicas e Códigos - Autor: André Luiz Bernardes  eBook: Série Data Science: Big Data, Como? - Autor: André Luiz Bernardes

eBook: Série Smarter Analytic: 5 Previsões de Big Data - Autor: André Luiz Bernardes


Conheça também:

DONUT PROJECT 2021 - VBA Function:  Como Rastrear o Google Maps (Coordenadas Geográficas) no VBA Excel?

DONUT PROJECT 2021 - VBA Function:  Crie Acrônimos a partir de Strings de Texto

DONUT PROJECT 2021 - VBA Function:  Convertendo uma Matrix num Vetor - Convert Matrix to a Vector

DONUT PROJECT 2021 - VBA Function:  Como tornar o Formulário Transparente no MS Excel?

DONUT PROJECT 2021 - VBA Function:  Faça Buscas no Google a Partir da Célula do MS Excel - Search Google From a Cell

DONUT PROJECT 2021 - VBA Function:  Decompondo um Nome nas Dimensões de uma Matriz

DONUT PROJECT 2021 - VBA Function: Extraindo o Último Sobrenome de um Nome Completo ou a Última Palavra de uma Frase

DONUT PROJECT 2021 - VBA Function:  Extraindo o Segundo Nome de um Nome Completo ou a Segunda Palavra de uma Frase

DONUT PROJECT 2021 - VBA Function: Extraindo o Primeiro Nome ou  a Primeira Palavra de uma Frase

Série Piece of Cake

Séries Donut


Comente e compartilhe este artigo!


brazilsalesforceeffectiveness@gmail.com
Inline image 1

Nenhum comentário:

Postar um comentário

diHITT - Notícias