0

いくつかの質問！

質問1

このプログラムで3つのチェックボックスを作成したいと思います。「日」と書かれたものをA2に、「時間」と書かれたものをA3に、「分」と書かれたものをA4にしたいと思います。そのセルを埋めるためにサイズを変更する方法はありますか、それとも手動でサイズを変更する必要がありますか？

これが私がこれまでに持っているものです：

Sub CheckBoxMacro()
ActiveSheet.CheckBoxes.Add(111.75, 28.5, 52.5, 17.25).Select
Selection.Characters.Text = "Hello World"
End Sub

数字のあるところに入れてみRange("A2")ましたが、うまくいきませんでした。

質問2

グラフからシリーズを削除するにはどうすればよいですか？VBAを使用してグラフを作成していますが、空白の3番目のシリーズが追加され続けています。それは伝説に現れます、そして私はそれをどうやって消すのか分かりません。

質問3

グラフを特定の範囲に塗りつぶすにはどうすればよいですか？少し前にVBAを使用してそれを行う方法を見つけましたが、私は一生の間、それを再び行う方法を見つけることができません。F1からK8などの特定の範囲をグラフで埋めたいのですが。そうすれば、左側の他の列がユーザー入力によって変更された場合でも、グラフはその範囲内にとどまり、すべてが見栄えが良くなります。

ありがとうございました！

4

1 に答える 1

1
  1. チェックボックスでセルを覆うようにする 
        Sub CheckBoxMacro  
      With ActiveSheet.Range("A2")  
        ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select  
        Selection.Characters.Text = "Hello World"  
      End With  
    End Sub
  2. 系列が空白の場合、ソース データ範囲を正しく識別していない可能性があります。それ以外の場合は、これを試して、アクティブなチャートから最後のシリーズを削除してください: 
        ActiveChart.SeriesCollection(ActiveChart.SeriesCollection.Count).Delete
  3. 1の回答と同じです。 
        Dim ChartRange As Range
    Set ChartRange = ActiveSheet.Range("F1:K8")
    With ActiveChart.Parent
      .Left = ChartRange.Left
      .Top = ChartRange.Top
      .Width = ChartRange.Width
      .Height = ChartRange.Height
    End With
于 2012-10-27T15:01:26.553 に答える