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
Dim wltType As WdLinkType
wltType = ActiveDocument.Fields(1).LinkFormat.Type
Update
Atualiza o formato de vínculo especificado.
ActiveDocument.Fields(1).LinkFormat.Update