Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26809 / 76732

←次へ　｜　前へ→


	【55249】マクロでグループ化した図を貼り付け、コネクタ接続を行いたい

すず - 08/4/24(木) 12:22 -


	引用なし

	パスワード

初めて投稿させて頂きます

色々調べてもエラーの解消が出来ません
教えてください
よろしくお願いします

＜やりたい事＞
1.基本となる図の雛形を作成し、雛形用シートにおいておく
　　※テキスト・図をグループ化しています
　　　　　　　　　　~~~~~~~~~~
2.マクロで
　　・1.の図を２つ、COPY→PASTEを行う
　　・上記の図をコネクタで接続する

＜エラー現象＞
コネクタ接続時、
　「BeginConnect・EndConnect」で追加した図を指定するが
　エラーとなる
　◎エラーメッセージ
　　実行時エラー'-2147024809(80070057)'
　　指定された値は境界を越えています

雛形の図が「グループ化」されていなければ、上手く実行されます
「グループ化」している図をコネクタ接続する事は出来ないのでしょうか？

教えてください
よろしくお願いします

＜ソース＞
　　Dim sNm As String
　　Dim sNm2 As String
　　
　　Sheets("シェイプ").Select
　　ActiveSheet.Shapes("shapeJS").Select
　　Selection.Copy
　　Sheets("Sheet1").Select
　　Range("F17").Select
　　ActiveSheet.Paste
　　
　　Selection.Name = "no1"
　　sNm = Selection.Name
　　
　　Sheets("シェイプ").Select
　　Selection.Copy
　　Sheets("Sheet1").Select
　　Range("J19").Select
　　ActiveSheet.Paste
　　
　　Selection.Name = "no2"
　　sNm2 = Selection.Name
　　
　　ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 411#, 262.5, 12
9#, _
　　　　32.25).Select
　　Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
　　Selection.ShapeRange.Flip msoFlipHorizontal
　　Selection.ShapeRange.Flip msoFlipVertical
　　Selection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shap
es(sNm), 4
　　Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes
(sNm2), 2

6 hits

▼

【55249】マクロでグループ化した図を貼り付け、コネクタ接続を行いたい すず 08/4/24(木) 12:22

≪