Classe LinkFormat - propriedades de objeto OLE vinculado (Word VBA)

A classe LinkFormat representa as características de vinculação de uma figura ou objeto OLE. Para usar uma variável de classe LinkFormat, ela primeiro precisa ser instanciada por exemplo

Dim lft as LinkFormat
Set lft = ActiveDocument.Fields(1).LinkFormat

AutoUpdate

True se o vínculo especificado é atualizado automaticamente quando o arquivo de contêiner é aberto ou quando o arquivo de origem for alterado. Boolean de leitura/gravação.

Dim shapeLoop as Shape 
 
For Each shapeLoop In ActiveDocument.Shapes 
 With shapeLoop 
 If .Type = msoLinkedOLEObject Then 
 If .LinkFormat.AutoUpdate = False Then 
 .LinkFormat.Update 
 End If 
 End If 
 End With 
Next s

BreakLink

Quebra o vínculo entre o arquivo de origem e o objeto OLE, figura ou campo vinculado especificado.

Após você usar este método, o resultado do vínculo não será atualizado automaticamente se o arquivo de origem for alterado.

Dim shapeLoop As Shape 
 
For Each shapeLoop In ActiveDocument.Shapes 
 With shapeLoop 
 If .Type = msoLinkedOLEObject Then 
 .LinkFormat.Update 
 .LinkFormat.BreakLink 
 End If 
 End With 
Next shapeLoop

Locked

True se um objeto Field, InlineShape ou forma é bloqueado para impedir a atualização automática. Boolean de leitura/gravação.

Se você usar essa propriedade com um objeto Shape que é uma imagem vinculada flutuante (uma imagem adicionada com o método AddPicture do objeto Shapes ), ocorrerá um erro.

ActiveDocument.Fields(1).LinkFormat.Locked = True

SavePictureWithDocument

True se a imagem especificada é salvo com o documento. Boolean de leitura/gravação.

Essa propriedade funciona apenas com formas e formas embutidas que são imagens vinculadas.

Set myPic = ActiveDocument.InlineShapes(1) 
If myPic.Type = wdInlineShapeLinkedPicture Then 
 myPic.LinkFormat.SavePictureWithDocument = True 
End If

SourceFullName

Retorna ou define o caminho e o nome do arquivo de origem do campo, imagem ou objeto OLE vinculado especificado. String de leitura/gravação.

O uso desta propriedade é equivalente ao uso em sequência as propriedades SourcePath, PathSeparator e SourceName.

With ActiveDocument.Shapes(1) 
 If .Type = msoLinkedOLEObject Then 
 With .LinkFormat 
 .SourceFullName = "c:\my documents\myExcel.xls" 
 .AutoUpdate = True 
 End With 
 End If 
End With

SourceName

Retorna o nome do arquivo de origem do campo, imagem ou objeto OLE vinculado especificado. Cadeia de caracteressomente leitura.

Essa propriedade não retorna o caminho do arquivo de origem.

For Each s In ActiveDocument.Shapes 
 If s.Type = msoLinkedOLEObject Then 
 Msgbox s.LinkFormat.SourcePath & "\" _ 
 & s.LinkFormat.SourceName 
 End If 
Next s

SourcePath

Retorna o caminho do arquivo de origem do campo, imagem ou objeto OLE vinculado especificado. Cadeia de caracteressomente leitura.

O caminho não inclui um caractere precedente (por exemplo, "C:\MSOffice"). Use a propriedade PathSeparator para adicionar o caractere que separa pastas e letras de unidade. Use a propriedade SourceName para retornar o nome de arquivo sem o caminho e use a propriedade SourceFullName para retornar o nome de arquivo e o caminho juntos.

For Each s In ActiveDocument.Shapes 
 If s.Type = msoLinkedOLEObject Then 
 Msgbox s.LinkFormat.SourcePath & "\" _ 
 & s.LinkFormat.SourceName 
 End If 
Next s

Type

Retorna o tipo de vínculo. Somente leitura WdLinkType. Aqui você pode encontrar os valores possíveis para WdLinkType.

Dim wltType As WdLinkType
wltType = ActiveDocument.Fields(1).LinkFormat.Type

Update

Atualiza o formato de vínculo especificado.

ActiveDocument.Fields(1).LinkFormat.Update