タイトル : Re^3: (解決)Chartオブジェクトで任意の場所にラベルオブジェクトを移動 投稿日 : 2016/05/06(Fri) 10:10 投稿者 : 食う寝る走る
Dim ca As New CalloutAnnotation() を Dim ca As New TextAnnotation() とすると、線が消えた注釈となります。 しかし、BackColorの設定はスルーされるので、文字だけとなってしまいます。 他、設定方法ありそうですが、BackColorが無いと見にくくなるので、No.11660の引き出し線有りで妥協と致します。 '■------------------- 注釈を設定 ----------------Start--■ 'Dim ca As New CalloutAnnotation() Dim ca As New TextAnnotation() ca.Name = "CA1" 'ca.CalloutStyle = CalloutStyle.Borderline '他7種類の形があります ca.Text = "Label" '注釈の文字 ca.ForeColor = Color.Black ca.Font = New Font("MS P明朝", 8, FontStyle.Bold) ca.BackColor = Color.Red ca.ShadowColor = Color.Blue ca.ShadowOffset = 3 ca.AllowAnchorMoving = True ca.AllowMoving = True ca.AllowPathEditing = True '表示位置の設定 ca.AnchorDataPoint = Chart1.Series(1).Points(0) Chart1.Annotations.Add(ca) '■-----------------------------------------------End----■ |