Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
14 / 306 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【852】ExcelからWord図形を検索する かず 18/3/17(土) 23:55 質問[未読]
【853】Re:ExcelからWord図形を検索する マナ 18/3/21(水) 13:20 発言[未読]
【854】Re:ExcelからWord図形を検索する マナ 18/3/21(水) 13:31 発言[未読]
【853】Re:ExcelからWord図形を検索する
発言  マナ  - 18/3/21(水) 13:20 -
引用なし
パスワード
   ▼かず さん：

>Q1
>Word のバージョンが2010 になると　AutoShapeType プロパティ
>が使えるオブジェクトを変えないといけないのでしょうか？

グループ化された図形で試して、使えないと判断しただけでは？
わたしの2010では判定できています。

>Q2 吹き出しがある箇所を、何ページの何行目科の位置と、
>　 その図形自体へのハイパーリンクとして、上記リストでは
>　 ４列目と5列目に記載したいと思います

わたしにはできません。
解決したら、報告お願いします。
【854】Re:ExcelからWord図形を検索する
発言  マナ  - 18/3/21(水) 13:31 -
引用なし
パスワード
   ▼かず さん：

>わたしの2010では判定できています。

こんな感じで確認しました。

Sub 動作確認()
　　Dim doc As Document
　　Dim sp As Shape
　　
　　Set doc = ActiveDocument

　　For Each sp In doc.Range.ShapeRange
　　　　If sp.Type = msoGroup Then
　　　　　　グループ内調査 sp
　　　　Else
　　　　　　吹き出し取得 sp
　　　　 End If
　　Next
　　
End Sub

Private Sub 吹き出し取得(sp As Shape)

　　Select Case sp.AutoShapeType
　　　　Case 53 To 59, 105 To 124, 137
　　　　　　MsgBox sp.TextFrame.TextRange.Text
　　　　　　MsgBox sp.Anchor.Information(wdActiveEndPageNumber)
　　End Select

End Sub

ところで、吹き出し以外でも、図形にコメント挿入できますが問題ないのでしょうか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
14 / 306 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
206459
(SS)C-BOARD v3.8 is Free