|
初めて投稿させて頂きます
色々調べてもエラーの解消が出来ません
教えてください
よろしくお願いします
<やりたい事>
1.基本となる図の雛形を作成し、雛形用シートにおいておく
※テキスト・図をグループ化しています
~~~~~~~~~~
2.マクロで
・1.の図を2つ、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
|
|