Tag: activex

ActiveX滚动栏缓慢: 我正在制作一个电子表格，可以从一个大型的时间序列dynamic地绘制子集数据。这个想法是允许用户指定绘制数据的开始时间。这是使用ActiveX文本框完成的。此外，我想让用户滚动浏览时间系列。这是通过包含一个ActiveX滚动条来完成的。为了保持同步，文本框和滚动条都引用同一个单元格（一个名为'datum'的命名区域）。这是事情变得有趣的地方。我已经写了三个潜艇： – 通过参考数据更新图表的时间轴。 Sub ReScaleChartAxis() Dim chtMin, chtMax As Long Dim grphSht, dtSht As Worksheet Dim minDepthCell As Range Set grphSht = Sheets("PlotSheet") Set dtSht = Sheets("Data") Set minDepthCell = dtSht.Range("datum") 'Optimize Application.ScreenUpdating = False Application.EnableEvents = False 'Determine Max/Min of time used in chart chtMin = Val(minDepthCell.Value) […]

使用ActiveX控件更改Excelcheckbox中框的大小？: 我在Excel中有这个ActiveXcheckbox，我想改变框的大小。我知道我可以做到这一点，如果我locking到一个单元格，并更改单元格大小。有另一种方法吗？

使用ActiveX从MATLAB写入Excel: 我想知道是否有一种方法使用单元格function，而不是与MATLAB的ActiveX命令范围？也许有人解决我的问题。我有许多数据列表和所有不同的大小，例如： List 1 has 10 List 2 has 13 List 3 has 3 … 我想将这些数据导出到MATLAB中的Excel表格中。我可以用Range函数来做，但这太长了。如果我有单元格function，我将能够查找List x的长度，并告诉它遍历列表的长度，并向下移动一个单元格。如果任何人有另一种解决scheme，我会感谢答案。提前致谢

使用ActiveX在javaScript中获取工作表名称列表: 我怎样才能得到我的Excel文件使用ActiveX对象的所有可用表名单？我知道这个代码Excel.ActiveWorkBook.Sheets返回工作表…但是我怎么能得到这些表中的数组的名称？ function getTabs() { var w =new ActiveXObject("Excel.Application"); var book = w.Workbooks.Open(excelFile); alert(book.name); //here I get the filename of my xls file and it displays ok var ExcelSheet= book.Sheets; alert(ExcelSheet); //This alerts to 'undefined' w.Quit(); w=null; } 这是我的代码现在…..

彩色高点/低点在Sparkline Excel绘图通过MATLAB: 在参考我以前的问题（添加迷你优秀matlab ），我可以设法创build迷你图，但我不知道如何着色绿色/红色的高点/低点。我试过了： % Open new workbook excel = actxserver('excel.application'); excel.visible = 1; wrkbook = excel.Workbooks.Add(); sheet = wrkbook.Sheets.Item(1); % Write some data sheet.Range('B1:Z1').Value = rand(1,25); % Add column sparklines to 'A1', type 'xlSparkColumn' and DataSource: 'B1:Z1' excel.ReferenceStyle = 'xlA1'; s = sheet.Range('A1').SparklineGroups.Add('xlSparkColumn','B1:Z1'); % Color s.Point.Highpoint.Color.Color = 4697456; s.Point.Lowpoint.Color.Color = 255; 另请参阅设置自定义单元格背景色的参考

无法插入ActiveX控件相对于单元格: 我正在尝试创build一个Excel电子表格，其中包含一个button，用于在包含button的单元格上方插入一行和一个ActiveXcombobox。该button被选定大小并与单元格一起移动。由于button随着每次单击而移动（如上所插入的行），并且用户可以在工作表上突出显示任何单元格，所以我需要创build一个相对于button单元格而不是活动单元格的macros。我通过命名包含button的单元格并logging我自己的macros（使用“select使用相对引用”）在包含button的单元格上方插入一行来完成上半部分。然后，我编辑了包含ActiveCell.Select到macros（“NamedCell”）的macros。select，以便无论用户已经突出显示的单元格，它将在button上方插入一行。我遇到的问题是如何插入ActiveXcombobox。生成的代码包含左，顶部，宽度和高度来定位ActiveXcombobox。由于高度随着连续的点击和插入的行而改变，所有的combobox相互重叠。如果这不可能发生或需要大量的VBA代码，请不要担心。通过阅读你对别人的回答，我已经学会了一大堆。这里是我目前拥有的macros，但它每次插入ActiveXcombobox在相同的地方，而不是像我想要的button上方的单元格。再次感谢。 Sub AddFitting() ' ' AddFitting Macro ' ' Range("FittingRow").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("FittingCell").Select ActiveCell.Offset(-1, 0).Range("A1").Select ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=0, Top:=346.5, Width:=120, Height:=15.75) _ .Select With Selection .Placement = xlMoveAndSize .PrintObject = True End With ActiveCell.Offset(0, 2).Range("A1").Select ActiveCell.FormulaR1C1 = "'= K value" ActiveCell.Offset(0, […]

如何创build一个ActiveXbutton，并添加代码（告诉它运行什么子）使用VBA？: 我想创build一个工作表中的一个ActiveXbutton，并分配一个代码（即告诉它要运行的子和该子已存在）。我可以创buildbutton：（录制） ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=41395.5882352941, Top:=234.705882352941, _ Width:=119.117647058824, Height:=39.7058823529412).Select 但是我想改变标题并为它分配一个子，所以当有人点击新创build的activexbutton时，它会运行一个已经存在于要创buildbutton的工作簿中的模块中的子。一切都发生在本工作簿中。谢谢！ PS – 我不能使用命令button….我只能使用ActiveX

Excel：对象文本框不能在受保护与未受保护的工作表状态（w / Text Unlocked）中执行回车换行…为什么？: 首先，我的尽职调查收集了大量有关ActiveX文本框的答案，但没有涉及对象文本框。对于我的项目，我不能使用任何ActiveX。 OK，所以当工作表是不受保护的，一个对象文本框（来自插入>形状）以我想要的方式工作：最重要的是我可以按Enter键并返回一个回车符。然后，我进入形状属性，并取消locking文本，并保护表。一旦表格被保护，虽然，回车的能力（inputEnter，然后往下走一行）就会消失。 Shift + Enter和Alt + Enter也不行。这个function是否可用？有没有解决办法？为什么Excel恨我？以下是我的一些想法：当文本框被点击/激活时取消保护表单，不保留（不能找出VBA的语法“如果相交…”是我在想什么）插入Word Doc对象（不要这样，因为一键进入公式栏编辑，我不能让字体留下来）只需使用合并的单元格并指示用户双击以input并使用Alt + Enter作为新行。目前获胜的select是使用合并单元格，但我可能只需要看看ActiveX是否可以在我们的networking上运行。我真的想在这里坚持KISS的原则，如果可能的话，terminal用户…我不介意在后端编码，使其工作，虽然。谢谢你的想法！编辑：这是一些图像来帮助… 以下是当我的工作表受到保护时，我想要的function：接下来，这是显示属性窗口的ActiveX文本框（Developer> Design Mode> Properties）。当工作表受到保护时，使其有些可用的属性以红圈，多行和回车键行为圈起来。但是，我更喜欢不必使用ActiveX …另外，用户不能逐行更改字体颜色。最后，我发现这很有趣：在“表单控件”下面还有一个“灰色”的文本框。从search，它看起来像是拿走了文本框的绘图对象版本…或者也许是相同的？左边是绘图对象一个，中间是灰色的表单控件，右边是ActiveX。总之，我只想看看在工作表受到保护时是否有一种方法来获得不受保护的工作表的形状文本框的function。

ActiveX控件更改为图片（Excel / VBA）: 我公司为包含ActiveX控件的客户端创build工作簿（在大多数情况下，我们需要与窗体控件相比的额外function）。当我们创build它们时，它们在我们的最后工作得很好，但是当我们将它们压缩并发送给我们的客户端时，它们将打开WB并且ActiveX控件不再是ActiveX控件，如果您右键单击它，它的行为就像一张图片。我觉得这是由于MS ActiveX的崩溃。我有他们运行修复它，并确保所有的MS Office组件closures，并让他们重新启动，但仍然没有。我拉出头发，并在其他论坛上询问是否有其他人有这个问题，他们已经做了什么来解决这个问题。提前致谢。

Excel 2007 VBA添加一个button: 我正在尝试编写一些代码来自动将一个button放置到我的工作表中，当点击button时它将执行一些代码。我基于从“Excel 2013 Power Programming with VBA”一书中看到的例子编写我的代码（p896）。我正在使用Excel 2007，但不知道它是否重要。无论如何，我修改了代码如下： *Sub AddButtonAndCode() Dim NewButton As OLEObject Dim NewSheet As Worksheet Set NewSheet = Worksheets("Sheet1") Set NewButton = NewSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=5, Top:=5, Height:=25, Width:=100) Code = "Sub CommandButton1_Click()" & vbCrLf Code = Code & " MsgBox ""???""" & vbCrLf Code = Code & "End Sub" With ActiveWorkbook.VBProject.VBComponents(NewSheet.Name).CodeModule […]