Tag: activex

activexcheckbox循环select链接的单元格偏移量,然后复制行

我有大约50个checkbox全部链接到它们所在的单元格(例如A2中的checkbox链接到单元格A2)。 我有循环在一定程度上工作。 我遇到的问题是使链接的单元格被选中,偏移量为1的单元格,然后复制该行从链接的单元格中删除。 然后粘贴到不同的工作表到下一个空白行。 Sub CheckboxLoop() Dim objx As OLEObject Dim lastrow As Range Application.ScreenUpdating = False 'Loop through Checkboxes With ActiveSheet For Each objx In .OLEObjects If TypeName(objx.Object) = "CheckBox" Then If objx.Object.Value = True Then If objx.Object.LinkedCell = True Then 'runtime error 438 object doesn't support this property or method objx.Object.LinkedCell.Offset(0, 1).Select Range(Cells(Selection.Row, […]

Excel ActiveX控件更改分辨率的大小仍然不固定?

好吧,这可能是一个通用的,重复的non-code问题,但最新的文章,我可以find关于这个是从2年前,所以我想知道是否有一个修复或更新或者可能是一个聪明的家伙那里已经破解了这个秘密。 每当我在Excel(2007,2010或2013)运行时扩展我的屏幕,并且每次在Excel运行时从扩展中拔出插件,我的ActiveX控件都将变得毫无用处,因为每次点击它们会缩小或变大如果我延长或拔掉。 直到我closuresExcel应用程序并重新启动它,不幸的是,如果我已经保存它,而button更大/更小,他们可能会最终卡住。 这里有一个线程,有一些代码可以帮助处理这个问题,但坦率地说,我希望现在,两年后,有人有一个更有效的方法来处理它。 我已经开始使用超链接来运行macros,但这不适合我的投递箱和东西。 对于我个人而言,我可以确保在扩展/拔出之前closuresExcel,但真正的问题是我正在为公司周围的人开发应用程序,并开始对这些该死的button造成问题。 有谁知道这个确定的修复呢?

使用ActXServer在Matlab中粘贴特殊的移调语法

我正在使用Matlab中的代码,将打开Excel电子表格,复制一定范围,并将其粘贴到一个新的工作表中转移我的范围在过程中。 我完全卡在PasteSpecial方法,并不知道如何使其转置我的数据。 我尝试了所有我能想到的:试过类似VBA的语法(Transpose = True),试过(Transpose,1),尝试过([],[],[],1),试过obj.Transpose在括号内的变化)…和其他各种各样的东西无济于事。 如果有人曾经这样做过,请帮助我。 以下是如果我的简化代码,以防万一需要。 先谢谢你! Excel = actxGetRunningServer('excel.application'); set(Excel, 'Visible', 1); Workbooks = Excel.Workbooks; Workbook = Excel.Workbooks.Open('C:\Users\…test.xlsx'); curr_sheet = get(Workbook,'ActiveSheet'); rngObj = ('A1:C3') rngObj.Copy Sheets = Excel.ActiveWorkBook.Sheets; new_sheet = Sheets.Add; new_sheet.PasteSpecial; %This is where I am stuck!

Excel自动化 – 重置模板工作簿的全名

我用excel生成自动报告作为后端,我从一个预先模糊的模板开始,在这个模板中,我只提供缺less的部分: excelApp = actxserver('Excel.Application'); excelWB = excelApp.Workbooks.Open('Mytemplate.xslx'); excelWB.Saved = false; … Feed template with effective data … 我想要的是能够重置打开的模板工作簿的全名,以便当用户点击closuresbutton时,他将像往常一样提示Save , SaveAs为,但单击Save应该要求一个文件的位置,而不是覆盖已有的模板。 可能吗 ? (我尝试手动重置工作簿对象的Path和FullName属性,但这些是只读的,所以它不起作用)。

Excel – 如果所有checkbox(ActiveX)未选中,则发送msgbox

我试图让macros发送一个msgbox万一activesheet(ActiveX)的任何checkbox被选中。 我不知道为什么,但是当我运行macros,即使我有一个checkbox检查跳转线“x = x + 1”… 有人能帮我吗? Private Sub adecoagrobox1_Click() If adecoagrobox1.Value = True Then On Error Resume Next ThisWorkbook.Sheets("Comps_pivot").PivotTables("compspivot1").AddDataField Sheets("Comps_pivot").PivotTables( _ "compspivot1").PivotFields("Adecoagro"), "Adecoagro ", xlSum Else On Error Resume Next ThisWorkbook.Sheets("Comps_pivot").PivotTables("compspivot1").PivotFields("Adecoagro "). _ Orientation = xlHidden End If Dim control as OLEObject Dim x as integer x = x + 1 For Each control […]

在Excel中使用ActiveX窗体控件的缺点?

我将在Excel 2016中创build一个互动的工作清单。我发现使用活动的x控件而不是表单控件的可能性更大。 在表单控件中,您甚至不能调整checkbox的大小(即勾选)。 已经读了很多关于在Excel中使用Active X并不好主意,而应该使用表单控制,但真正的缺点是什么? 我无法find链接上的任何缺点。 也许你打开文件时必须允许active x,但是我不认为这是一个缺点。

将XML数据推送到Excel表格时,ActiveX控件移动

我通过C#将XML数据推送到Excel表格中,但是当我这样做时,页面上较低的ActiveXcheckbox不会调整它们的位置。 电子表格行向下移动,但checkbox不行。 此外,有时候,即使电子表格中的单元格向下移动,行高也不会,从而搞乱了格式。 我尝试了checkbox的属性,但仍然有相同的行为。 谢谢。

ActiveX Excel对象的文档?

我正在使用ActiveX来与Javascript中的Excel接口。 我只是想知道是否有任何明确的文件资源,如属性/方法/等? 如果确实存在,我似乎无法find它。

从ActiveX图像控件 – VBA中删除图像

我创build了一个启用macros的Excel电子表格,它将以编程方式从磁盘加载图像并将其加载到ActiveX图像控件中。 如何删除图像? 我想从我的testing过程中删除图像。 我不需要创build脚本来以编程方式将其删除。

以checkbox的名称作为string访问ActiveXcheckbox值

我有一个Excel工作表与多个ActiveXcheckbox。 他们的名字是“CheckBox1”,“CheckBox2”,“CheckBox3”等。如果我把它们称为variables,例如: If CheckBox1 = True Then MsgBox "OK" EndIf 一切正常。 我想用For循环加载我的所有checkbox的数组值,所以我必须引用它们的名称作为string,以创build连续的名称。 我已经尝试了几个解决scheme,例如: Dim CheckBox As Shape Set CheckBox = ActiveSheet.Shapes("CheckBox1") If CheckBox.OLEFormat.Object.Value = 1 Then MsgBox "OK" End If 显示“运行时错误'438':对象不支持此属性或方法” If ActiveSheet.CheckBoxes("CheckBox1").Checked = False Then MsgBox "OK" End If 显示“运行时错误”1004“:取CheckBoxes类的属性工作表是不可能的' If ActiveSheet.Shapes("CheckBox1").Value = xlOn Then MsgBox "OK" End If 显示“运行时错误'438':对象不支持此属性或方法” 在主题中,我怎样才能用String作为名字来引用ActixeXcheckbox的值? 可能吗?