嗨,刚刚开始使用VBA excel -是否有一种方法可以根据不直接输入到饼图中的值来对饼图进行着色?我的样本数据如下所示:
Steps % Complete Status
Step1 100% B (Blue)
Step2 50% R (Red)
Step3 30% G (Green)
Step4 15% A (Yellow)
将只使用前两列(步骤和%完成)
在Excel 2003的饼图中,数据标签遇到了一个非常奇怪的问题。我将绝对在VBA中设置数据标签的.Top或.Left属性,但Excel将自动将其移动到不同的值。这一切为什么要发生?我怎么才能解决这个问题?从我的测试来看,Excel 2007中不存在这个问题。要了解我的意思,请尝试在excel 2007中创建带有数据标签的饼图,并在图表上运行以下函数:
Sub problemExample(xlcht As Excel.Chart)
With xlcht.SeriesCollection(1)
For aSlice = 1 To .Points.Count
.Poi
我有几个关于在VBA中使用数组的基本问题,我还没有找到答案。
首先,在Excel VBA中有没有一种指定一维行矢量的方法?
我刚开始在Excel VBA中使用数组,并且已经将行和列向量定义为二维数组,如下面的示例所示
'Define a Local Row Vector
ReDim aArray(1 to iCntRows, 1 to 1)
'Define a Local Column Vector
ReDim aArray(1 to 1, 1 to iCntCols)
那么第二,这是最佳实践吗?我应该使用一维数组来代替吗?
感谢时间
我有一个excel工作表,其中包含一个饼图,我想把它复制到一个PowerPoint幻灯片(幻灯片数字10)。
我还希望保持源代码格式化,如果在饼图中进行任何格式更改,则应该修改幻灯片中的以及。
对此有任何vba编码吗?偶然发现了这段代码,但它似乎对我不起作用。
'copy the chart from Excel
xlSheet.ChartObjects(ChartName).Select
xlSheet.ChartObjects(ChartName).Copy
'Select Slide
Set mySlide = my
我没有使用VBA的经验,我试图根据Excel 2010中数据单元格的颜色在一个活动的工作表上格式化所有的饼图。我从:找到这段代码
Sub ColorPies()
Dim cht As ChartObject
Dim i As Integer
Dim vntValues As Variant
Dim s As String
Dim myseries As Series
For Each cht In ActiveSheet.ChartObjects
For Each myseries In cht.Chart.SeriesCollection
我的任务是“在excel中创建饼图,然后在matlab中显示”。
我想,我有两个麻烦:
1)这个图表是否正确地创建了图表?(A1-A6为姓名,B1-B6 -编号)。
好的,这个函数起作用。
Function CreateChart() As Excel.Chart
Dim title As String
title = "One"
Dim Book As Workbook
Set Book = ThisWorkbook
Dim new_sheet As Excel.Worksheet
Set new_sheet = Book.Sheets(1)
Dim new_char
我正在将Excel VBA移植到VB.NET。我有一个函数可以选择数据,它可以是一维的也可以是二维的。VBA代码在将变量用作一维数组或二维数组时非常灵活,但VB.NET将其标记为错误。
以下是精简后的代码:
Public Function Stat(ByVal Data As Range) As Object
Dim Y() As Object
Dim Appp As New Application() ''// Very annoying
''//Convert worksheet range into array vector
我想知道是否有人可以帮助我使用我正在处理的VBA宏。我只是选择了一个未格式化的图表,并进行了一些简单的格式化。默认情况下,它是一个常规的饼图。我试着把它做成一个3D饼图,并将X和Y旋转分别改为50度和30度。我已经使用Excel录制了这个宏,但是由于某些原因,3D旋转不起作用。所有其他格式都可以完美地工作;只有这个不能工作。我该怎么做,有什么建议吗?谢谢
Sub Macro2()
ActiveSheet.ChartObjects("Topic Breakdown by Priority").Activate
ActiveChart.ChartType = xl3DPieExpl