0

几个问题！

问题一

我希望这个程序创建三个复选框。我想要一个说“天”的在 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")它放在有数字的地方，但这没有用。

问题二

如何从图表中删除系列？我正在使用 VBA 制作图表，并且它不断添加空白的第三系列。它出现在传说中，我不知道如何让它消失。

问题三

如何使图表填充特定范围？不久前我发现了如何使用 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 回答