Excel VBA質問箱 IV

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

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


26790 / 76732 ←次へ | 前へ→

【55268】Re:マクロでグループ化した図を貼り付け、コネクタ接続を行いたい
発言  n  - 08/4/25(金) 11:07 -

引用なし
パスワード
   『直接は接続できません。』の意味は、
GroupObjectそのものに対して接続はできません。
GroupObjectの中味の各Shapeには接続できます。
の意味です。

貴方のコードの
>ActiveSheet.Shapes(sNm)
は単独のShapeだったり、GroupObjectだったりするわけですから、
GroupObjectの場合は、その中のShapeに対して接続するように
条件分岐しないといけませんね。

Sub try()
  Dim s1 As Shape
  Dim s2 As Shape

  Sheets("シェイプ").Shapes("shapeJS").Copy
  With Sheets("Sheet1")
    .Paste
    Set s1 = .Shapes(.Shapes.Count)
    Set s2 = s1.Duplicate
    With .Range("F17")
      s1.Left = .Left
      s1.Top = .Top
    End With
    With .Range("J19")
      s2.Left = .Left
      s2.Top = .Top
    End With

    If TypeName(s1.DrawingObject) = "GroupObject" Then
      Set s1 = s1.GroupItems(1)
    End If
    If TypeName(s2.DrawingObject) = "GroupObject" Then
      Set s2 = s2.GroupItems(1)
    End If
    With .Shapes.AddConnector( _
           msoConnectorElbow, 411, 262.5, 129, 32.25)
      .Line.EndArrowheadStyle = msoArrowheadTriangle
      .Flip msoFlipHorizontal
      .Flip msoFlipVertical
      .ConnectorFormat.BeginConnect s1, 4
      .ConnectorFormat.EndConnect s2, 2
    End With
  End With

  Set s1 = Nothing
  Set s2 = Nothing
End Sub

8 hits

【55249】マクロでグループ化した図を貼り付け、コネクタ接続を行いたい すず 08/4/24(木) 12:22 質問
【55253】Re:マクロでグループ化した図を貼り付け、... n 08/4/24(木) 15:56 発言
【55263】Re:マクロでグループ化した図を貼り付け、... すず 08/4/25(金) 10:10 お礼
【55266】Re:マクロでグループ化した図を貼り付け、... ハチ 08/4/25(金) 10:41 発言
【55268】Re:マクロでグループ化した図を貼り付け、... n 08/4/25(金) 11:07 発言
【55269】Re:マクロでグループ化した図を貼り付け、... n 08/4/25(金) 11:15 発言
【55587】Re:マクロでグループ化した図を貼り付け、... すず 08/5/12(月) 13:37 お礼

26790 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free