Tag: 调整

在Powerpoint中粘贴位图图像，无法resize。 错误selection.shaperange：无效的请求。 没有合适的select

I'm running vba to copy and paste ranges from Excel to PPT and I just changed the paste type to Bitmap and now I keep getting this error: – selection.shaperange: invalid request . nothing appropriate is being selected on this line of code: – PPApp.ActiveWindow.Selection.ShapeRange.Left = 0 I have Excel 2010 and need to use […]

Microsoft Excel VBA文本分割调整

我有一个Excel工作表，它使用macros来分隔一串文本，当它被扫描（通过即插即用条码扫描器）到第一列右侧的空格字符作为分隔符。 Excel工作表后跟Excelmacros的示例图片。 Sub textsplit(rng As Range) Dim c As Range, Arr For Each c In rng.Cells If Len(c.Value) > 0 Then Arr = Split(c.Value, " ") c.Offset(0, 1).Resize(1, UBound(Arr) + 1).Value = Arr End If Next c End Sub 现在所有这些都可以正常工作，但是我需要对此进行一些调整。 我希望macros在第一个序列（“CNA1234567”）之后跳过列并将其留空 。 我怎样才能调整这个代码来做到这一点？

VBA调整OSK.exe窗口的大小

我正在使用Kiosktypes（无鼠标，无键盘）应用程序，用户将数据inputExcel电子表格。 我希望屏幕键盘在每次被调用时都会出现在同一个地方。 osk.exe窗口“记住”它在什么时候被closures，并在下一次打开时重新出现在同一个地方，但在closures之后，osk返回到它的默认位置并覆盖表单。 我需要一种方法来设置osk打开时的位置。 下面是我打开osk的代码。 Dim Shex As Object Dim tgtfile As String Set Shex = CreateObject("Shell.Application") tgtfile = "C:\Windows\System32\osk.exe" Shex.Open (tgtfile) 我想知道是否有像Shex.Top = 250，或类似的东西。 谢谢！