Excel VBA質問箱 IV

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

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


6238 / 76734 ←次へ | 前へ→

【76098】Re:シート上の図形の再描写
発言  独覚  - 14/9/24(水) 14:30 -

引用なし
パスワード
   ▼ど素人 さん:
>環境 excel 2013
私の環境は2010なので異なっていることがあるかもしれません。
で、
>・矢印の向きが再現されない
これについてだけ。

まず、
>ActiveSheet.Shapes.AddConnector(left, top, width, Height).Select

>ActiveSheet.Shapes.AddConnector(obj, left, top, width, Height).Select
のミスでしょうか?
2013でobj省略可能になったのかとも思いましたが

ht tp://msdn.microsoft.com/ja-jp/library/office/ff834664(v=office.15).aspx
では必須項目のようですが。

で、本題です。
その矢印は本当に「msoArrowheadTriangle」(三角矢印)でしょうか?
私のところでは何もしない状態では矢印は「msoArrowheadOpen」(開いた矢印)でした。

矢印にも種類があるので
>ActiveSheet.Shapes.AddConnector(obj, left, top, width, Height).Select
>If 中身.Line.BeginArrowheadStyle = msoArrowheadTriangle Then
>  Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadTriangle
> End If
>If 中身.Line.EndArrowheadStyle = msoArrowheadTriangle Then
>  Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
>End If
部分を
>  Dim wk_中身 As Variant
を追加したうえで
>Set wk_中身 = ActiveSheet.Shapes.AddConnector(obj, left, top, width, Height)
>wk_中身.Line.BeginArrowheadStyle = 中身.Line.BeginArrowheadStyle
>wk_中身.Line.EndArrowheadStyle = 中身.Line.EndArrowheadStyle
としてはどうでしょうか?
4 hits

【76096】シート上の図形の再描写 ど素人 14/9/24(水) 13:06 質問
【76098】Re:シート上の図形の再描写 独覚 14/9/24(水) 14:30 発言
【76101】Re:シート上の図形の再描写 ど素人 14/9/25(木) 15:27 発言
【76102】Re:シート上の図形の再描写 独覚 14/9/25(木) 16:14 発言
【76099】Re:シート上の図形の再描写 独覚 14/9/24(水) 16:45 発言
【76120】Re:シート上の図形の再描写 ど素人 14/9/30(火) 14:40 お礼

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