Macro para acrescentar uma Marca Dágua num arquivo PDF

Boa tarde

Eu preciso de uma macro que de início carregue uma janela, já com um caminho pré-definido (C:\Users\LOG-CONTROLE\Desktop\PEDIDO DE COMPRA\), onde eu possa selecionar um arquivo pdf. Após selecionado, seja possível atribuir uma marca d'água específica. Exemplo: PEDIDO DE COMPRA CANCELADO. Se possível, que esse dizer fique posicionado em diagonal. Ex: /. Depois disso tudo, já o pdf com a marca d'água, ele seja selecionado para envio via email, como já faço através da macro abaixo:

Dim iMsg, iConf, Flds

'Seta as variáveis, lembrando que o objeto Microsoft CDO deverá estar habilitado em Ferramentas->Referências->Microsoft CDO for Windows 2000 Library
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

'Define o caminho do arquivo PDF'
strCaminho = Range("DJ3")
'Configura o componente de envio de email
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
'Configura o smtp
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
'Configura a porta de envio de email
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
'Configura o email do remetente
Flds.Item(schema & "sendusername") = "[email]meuemail@gmail.com[/email]"
'Configura a senha do email remetente
Flds.Item(schema & "sendpassword") = "minhasenha"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
'Email do destinatário
.To = Range("Q26")
'Seu email
.From = "[email]meuemail@gmail.com[/email]"
'Email copiado
.CC = Range("Z26")
'Título do email
.Subject = "Confirmação do pedido de compra - Grupo EBD"
'Mensagem do e-mail, você pode enviar formatado em HTML
.HTMLBody = "Esta é uma mensagem automática da geração do pedido de compra. Portanto, favor emití-lo e/ou enviá-lo, atentando para o prazo de 48 horas para entrega, após emissão da nota fiscal. Favor acusar recebimento." 'Seu nome ou apelido
.Sender = "Meu nome"
'Nome da sua organização
.Organization = "Minha Empresa"
'email de responder para
.ReplyTo = "[email]meuemail@gmail.com[/email]"
'Anexo a ser enviado na mensagem
.AddAttachment strCaminho
'Passa a configuração para o objeto CDO
Set .Configuration = iConf
'Envia o email
.Send

'Confirma o envio
Título = "Confirmação do pedido de compra"
TEXTO = "Pedido enviado com sucesso!"
CxDialog = MsgBox(TEXTO, vbOKOnly + vbInformation, Título)
End With

'Limpa as variáveis
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Sub