|
▼ど素人 さん:
>環境 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
としてはどうでしょうか?
|
|