Tag: 图表

我们如何设置从C＃中的Excel图表的位置？: 我正试图从C＃生成一个Excel图表。图表生成只是find，但总是出现在屏幕的中心。我怎样才能设置图表的位置？谢谢。我的代码如下所示： Microsoft.Office.Interop.Excel._Workbook ebook = (Microsoft.Office.Interop.Excel._Workbook)etablo.Workbooks.Add(true); Microsoft.Office.Interop.Excel._Worksheet esheet = (Microsoft.Office.Interop.Excel._Worksheet)ebook.ActiveSheet; _Chart grafik1 = (Chart)ebook.Charts.Add(Type.Missing, Type.Missing, Type.Missing, Type.Missing); /* Add Data From Cells here */ /* Then */ grafik1.Location(XlChartLocation.xlLocationAsObject, esheet.Name);

Excel图表+ C＃: 我使用Excel从c＃绘制图表，但我需要图表是一个系列相互关联，而不是两个系列（当我select一个范围，有两列的数据）任何人都可以帮忙： xla.Visible = true; Workbook wb = xla.Workbooks.Add(XlSheetType.xlWorksheet); Worksheet ws = (Worksheet)xla.ActiveSheet; // Now create the chart. ChartObjects chartObjs = (ChartObjects)ws.ChartObjects(Type.Missing); ChartObject chartObj = chartObjs.Add(100, 20, 300, 300); Chart xlChart = chartObj.Chart; Range rg = ws.get_Range("B2", "C17"); xlChart.SetSourceData(chartRange, XlRowCol.xlColumns); 谢谢

在Excel中多轴线图: 我正在寻找一个类似于下图中的多轴线图（这是一个由amcharts制作的javascript图表）。 Excel有没有select绘制图表这些线？请注意，有3个Y轴和3个折线图可供您比较数据。是否有可能获得超过3个数据点，每个数据点在一个图表上都有唯一的轴？

VBA存储msoThemeColor中的variables: 我正在寻找将mso主题颜色存储在variables中，以便图表颜色和模式可以dynamic变化（在这种情况下variablesTh）。这是我现在的代码： Dim Th As Long Th = "msoThemeColorAccent" & ActiveCell.Offset(-5, 0) If ActiveCell = "Realized" Then ActiveChart.SeriesCollection(Srs).Select With Selection.Format.Fill .ForeColor.ObjectThemeColor = Th .Solid End With With Selection.Format.Line .ForeColor.ObjectThemeColor = Th End With End If 我在想这个问题是，我没有使用正确的昏暗的分类。我已经看到在这里存储RGB作为variables的问题（使用Dim Long似乎是解决scheme），但没有在msoThemeColors。谢谢，让我知道，如果我可以提供任何其他细节！

更改图表excel VBA中的点颜色: 我有这个图表，如果图中的任何一点超过了特定的限制，那么它的颜色应该改变。任何人都可以build议我如何获得在VBA的图表，然后应用这种条件，例如我想改变上面的图中最高点的颜色。任何帮助将不胜感激。

不能更改自定义ErrorBars的宽度: 我想通过Excel VBA在图表中创buildErrorBars，但我需要宽度为12PT，或者变化。这里是我正在使用的代码，但它看起来不像它的工作： Set s = .SeriesCollection.NewSeries() With s .Name = "=GraphicSchedule!$" & getColumn(objList.ListColumns.Item("Activity").Range.Column) & "$" & sourceRow .XValues = "=GraphicSchedule!$" & getColumn(objList.ListColumns.Item("DateMid").Range.Column) & "$" & sourceRow .Values = "=GraphicSchedule!$" & getColumn(objList.ListColumns.Item("Loc1").Range.Column) & "$" & sourceRow .HasErrorBars = True .ErrorBar Direction:=xlX, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:="=GraphicSchedule!$" & getColumn(objList.ListColumns.Item("BarLength").Range.Column) & "$" & sourceRow, MinusValues:="=GraphicSchedule!$" & getColumn(objList.ListColumns.Item("BarLength").Range.Column) & "$" […]

select图表而不参考图表编号: 我想在Excel中使用VBA在Excel中select一个随机图表，而不知道图表编号，因为生成的图表总是在编号上发生变化。任何人都可以帮忙吗？是否有可能select一个图表而不参考图表编号？我想更改活动图表的图表名称。 1 ActiveSheet.ChartObjects("Chart 409").Activate 2 ActiveSheet.Shapes("Chart 409").Name = "Chart 1" 3 ActiveSheet.ChartObjects("Chart 1").Activate

Excel.Application复制工作表与embedded式图表: 我有一个PHP页面使用Excel.Application复制包含一些数据和embedded图表的工作表。代码是这样的： $Excel=new COM("Excel.application"); $workbook=$Excel->Workbooks->Open($fileName); //alternative 1 $workbook->Worksheets("Sheet1")->Copy(NULL,$workbook->Worksheets("Sheet2")); //alternative 2 $added=$workbook->Worksheets->Add(); $added->Name=$destName; $workbook->Worksheets($sourceName)->Range("A1:Z100")->Copy($added->Range("A1")); $workbook->SaveAs($fileNameDest); 结果是数据和公式被正确复制和格式化，但sheet1中的图表不复制在sheet2中。没有错误，没有例外，但也没有图表代码的替代品。任何人都可以帮我复制这张纸…完全？谢谢！

范围类的CopyPicture方法失败 – 有时: 我有一个VBA代码，我正在使用复制范围作为图片，并将其粘贴到图表中。它这样做，所以我可以把它保存成图片。这个代码有70％的成功率，当它不起作用时，它会发出错误“范围类的CopyPicture方法失败”。我不明白为什么有时可以工作，有时候并没有给出相同的意见。谁能帮忙？ Public Sub ExportRange(workbookPath As String, sheetName As String, rangeString As String, savepath As String) Set tempWorkBook = Workbooks.Open(workbookPath) Dim selectRange As range Set selectRange = Worksheets(sheetName).range(rangeString) Dim numRows As Long numRows = selectRange.Rows.Count Dim numCols As Long numCols = selectRange.Columns.Count ' Transfer selection to a new sheet and autofit the […]

删除图表系列，但保持其格式: 这是我用来在Virtual Basicdynamic创build图表的代码： Dim Chart As Object Set Chart = Charts.Add With Chart If bIssetSourceChart Then CopySourceChart .Paste Type:=xlFormats End If For Each s In .SeriesCollection s.Delete Next s .ChartType = xlColumnClustered .Location Where:=xlLocationAsNewSheet, Name:=chartTitle Sheets(chartTitle).Move After:=Sheets(Sheets.count) With .SeriesCollection.NewSeries If Val(Application.Version) >= 12 Then .values = values .XValues = columns .Name = chartTitle Else .Select Names.Add […]