WorkbookBase.LinkInfo(String, XlLinkInfo, Object, Object) メソッド
定義
重要
一部の情報は、リリース前に大きく変更される可能性があるプレリリースされた製品に関するものです。 Microsoft は、ここに記載されている情報について、明示または黙示を問わず、一切保証しません。
リンクの日付と更新状況を取得します。
public object LinkInfo (string name, Microsoft.Office.Interop.Excel.XlLinkInfo linkInfoArgument, object type, object editionRef);member this.LinkInfo : string * Microsoft.Office.Interop.Excel.XlLinkInfo * obj * obj -> objPublic Function LinkInfo (name As String, linkInfoArgument As XlLinkInfo, Optional type As Object, Optional editionRef As Object) As Objectパラメーター
- name
- String
リンクの名前。
- linkInfoArgument
- XlLinkInfo
返す情報の種類を指定する、いずれかの XlLinkInfo 値です。
- type
- Object
情報を返すリンクの種類を指定する、いずれかの XlLinkInfoType 値です。
- editionRef
- Object
リンクがエディションの場合、このパラメーターはエディション参照を R1C1 スタイルの文字列に指定します。 EditionRef は、ブック内に同じ名前のパブリッシャーまたはサブスクライバーが複数存在する場合に必要です。
戻り値
リンクについての情報を示す値です。 LinkInfoArgument が xlUpdateState のとき、このメソッドは、リンクが自動更新される場合に 1 を返し、リンクを手動で更新しなければならない場合に 2 を返します。
例
次のコード例では、 を使用して、現在のブック内の DDE/OLE リンクのコレクションを取得し、 メソッドを LinkInfo 使用して、各 DDE/OLE リンクを自動的に更新するか手動で更新するかを決定します。
この例は、ドキュメント レベルのカスタマイズ用です。
private void WorkbookLinkInfo()
{
// Get the collection of DDE/OLE links in the workbook.
Array links = (Array)this.LinkSources(Excel.XlLink.xlOLELinks);
// If there are DDE/OLE links, then display how each link
// updates.
if (links != null)
{
for (int i = 1; i <= links.Length; i++)
{
string linkName = (string)links.GetValue(i);
int updateValue = (int)this.LinkInfo(linkName,
Excel.XlLinkInfo.xlUpdateState,
Excel.XlLinkInfoType.xlLinkInfoOLELinks);
if (updateValue == 1)
{
MessageBox.Show(linkName + " link updates automatically.");
}
else if (updateValue == 2)
{
MessageBox.Show(linkName + " link updates manually.");
}
}
}
else
{
MessageBox.Show("The workbook contains no DDE/OLE links.");
}
}
Private Sub WorkbookLinkInfo()
' Get the collection of DDE/OLE links in the workbook.
Dim Links As Array = _
CType(Me.LinkSources(Excel.XlLink.xlOLELinks), _
Array)
' If there are DDE/OLE links, then display how each link
' updates.
If Links IsNot Nothing Then
Dim i As Integer
For i = 1 To Links.Length
Dim UpdateValue As Integer = Me.LinkInfo(Links(i), _
Excel.XlLinkInfo.xlUpdateState, _
Excel.XlLinkInfoType.xlLinkInfoOLELinks)
If UpdateValue = 1 Then
MsgBox(Links(i) & " link updates automatically.")
ElseIf UpdateValue = 2 Then
MsgBox(Links(i) & " link updates manually.")
End If
Next i
Else
MsgBox("The workbook contains no DDE/OLE links.")
End If
End Sub
注釈
省略可能のパラメーター
省略可能なパラメーターの詳細については、「 Office ソリューションの省略可能なパラメーター」を参照してください。