Naz's questions

在幻灯片 2 上的 PowerPoint 365 模板艺术霓虹灯中，有一个称为圆角矩形时间线的时间线。我想在空白的 PowerPoint 演示文稿上创建一个新的，但找不到这个 SmartArt 时间线在哪里以及如何插入它。

我在 PC 上安装了 MS Access，在重建过程中需要将它安装在不同的硬盘驱动器上，我有它所在的 CD，但不再有 CD 驱动器。有没有办法将 MS Access 文件复制到闪存驱动器并将它们复制到新驱动器。我已经尝试过了，但只是收到一堆关于缺少安装文件和需要 CD 的消息。

我有这段代码来列出带有超链接的图片/文本框，但它只列出外部超链接，有没有办法将它更改为也包括内部链接？

    For Each wsSheet In wbBook.Worksheets
    
        wsSheet.Activate
        
        For Each Hint In ActiveSheet.Shapes
        On Error Resume Next
        
            Set hl = Hint.Hyperlink
            On Error GoTo 0
            If Not hl Is Nothing Then
               
                Print #intFile, hl.Address
                Set hl = Nothing

            End If
       
        Next

    Next wsSheet

我有以下代码将工作簿中的对象列出到另一个工作簿中；

For Each ws In mainworkBook.Sheets
    
    For Each includedObjects In ws.Shapes

        outputBook.Sheets("Sheet1").Range("A" & i) = ws.Name
        outputBook.Sheets("Sheet1").Range("B" & i) = TypeName(includedObjects)
        outputBook.Sheets("Sheet1").Range("C" & i) = includedObjects.Name
        i = i + 1
        
    Next
        
Next

但是，这需要 5 分钟才能运行并列出大约 2500 个对象。但是这个输出到 CSV 文件的代码只需要几秒钟就可以得到相同的结果。

objFile.writeline "Sheet, Object Type, Object name"
For Each ws In ActiveWorkbook.Sheets
    For Each includedObjects In ws.Shapes
        objFile.writeline ws.Name & "," & TypeName(includedObjects) & "," & includedObjects.Name
    Next
Next

如何改进第一个代码以使其运行得更快？

我正在尝试编写一个子程序，它将当前工作簿（带有子程序的工作簿）中的工作表列出到一个名为 ListAllSheets 的工作簿中，但在如何访问 ListAllSheets 以将名称写入其中时变得有点卡住了，这就是我到目前为止。

Sub ListAllSheets()

    'Create variables
    Dim outputFile As String
    Dim mainworkBook As Workbook

    Set mainworkBook = ActiveWorkbook
    
    'Assign the file to outputFile
    outputFile = "D:\QA\ListAllSheets.xlsx"
    
    On Error Resume Next
    Workbooks("ListAllSheets.xlsx").Close SaveChanges:=False
    On Error GoTo 0
        
    'Delete old file if it exists
    If Len(Dir$(outputFile)) > 0 Then
         Kill outputFile
    End If

    'Create new file
    Workbooks.Add.SaveAs Filename:=outputFile
       
    'List all the sheet in current file into the outputFile
    For i = 1 To mainworkBook.Sheets.Count

        Sheets("Sheet1").Range(“A” & i) = mainworkBook.Sheets(i).Name

    Next i

End Sub

当我运行它时，我要么得到一个错误，要么它列出了错误工作簿中的工作表。

更新代码：

Sub ListAllSheets()

    'Create variables
    Dim outputFile As String
    Dim mainworkBook As Workbook
    Dim newworkBook As Workbook
    
    'Assign the file to outputFile
    outputFile = "D:\QA\ListAllSheets.xlsx"
    
    Set newworkBook = Workbooks(outputFile)
    Set mainworkBook = ActiveWorkbook
  
    On Error Resume Next
    Workbooks("ListAllSheets.xlsx").Close SaveChanges:=False
    On Error GoTo 0
        
    'Delete old file if it exists
    If Len(Dir$(outputFile)) > 0 Then
         Kill outputFile
    End If

    'Create new file
    Workbooks.Add.SaveAs Filename:=outputFile
       
    'List all the sheet in current file into the outputFile
    For i = 1 To mainworkBook.Sheets.Count

        newworkBook.Sheets("Sheet1").Range(“A” & i) = mainworkBook.Sheets(i).Name

    Next i

End Sub

我有一个名为 Orders 的表，为了获得我在公式中使用的订单总数；

COUNTIF($C$9:C9,[@[Order ID]])>1

但是，当添加新条目时，C9 不会增加并且我得到一个错误标志。是否有另一种方法来引用将增加的范围。

当我尝试获取行高时，返回的值与电子表格中的高度不同。我将第 5 行的行高设置为 10，但是当我使用代码时；

Sub RowHeightTest()

    MsgBox Rows(5).Height

End Sub

如果我将高度更改为 20，它会返回 9.75 我得到 19.5，为什么会有差异？

我想增加正文底部和页脚顶部之间的空间，两者目前看起来太近了。我看过有关更改边距的文章，但这似乎没有帮助。

我想使用 HEX 设置形状的填充颜色，所以我有

selCellColour=ActiveCell.DisplayFormat.Interior.Color

获取单元格的颜色并想使用

ActiveSheet.Shapes("Test").Fill.ForeColor = Hex(selCellColour)

但我不断收到类型不匹配错误消息。我该如何解决这个问题，我不想着色为 RGB 我想使用 HEX 值。

我有一个供应商产品的 Excel 表格，每个产品的功能如图所示；

我想从表中创建一个切片器作为过滤器，以便一个切片器具有功能 1、2、3、4、5 作为其中的选项，我可以选择。但是当我创建一个切片器时，我得到的只是 5 个切片器，其特征是标题，v（勾号）是唯一的选项。

有没有一种使用切片器或其他类似方法的方法，而不是普通的过滤器，我可以在其中列出功能列表并选择我感兴趣的功能并让它过滤表格。

我有一个链接到一个单元格的文本框，但是，当我将链接更改为另一个单元格时，文本框的格式会恢复为基本字体，有没有办法防止这种情况发生？

[][2]有没有办法制作线条，以便宽度/厚度随着您改变尺寸而缩放。目前，如果我用线条工具绘制一个形状，然后减小形状的大小，线条的宽度不会改变。在图像中，Excel 的行为类似于第一个无缩放图像集。

我正在尝试创建一个图表来显示男性和女性之间的薪酬差异。我想要在顶部/底部、左侧的扇区、男性/女性图标和支付点支付。我似乎无法做到这一点。我最接近的是一个散点图，它绘制了支付点，但无法添加扇区。我还需要添加更多扇区。有没有办法实现这一目标。

我有一个基于工作的 Office 365 帐户，我正在考虑远程工作，如果我在 Office 365 上打开 Excel 文件，它会在线打开 Excel，但是，如果我想处理更复杂的电子表格，我可以选择在本地 Excel。这有多安全？如果我正在处理一个文件并且断电，该文件的副本是否仍在该 PC 上？在公用计算机上使用 Open in Excel 是否安全？

我想向电子表格中的图表添加一些快速选项，我想选择一个图表，选择/取消选择一个复选框，然后代码运行。

勾选框代码是；

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
        DisplayLabels    
    Else    
        HideLabels   
    End If

End Sub

DisplayLabels 和 HideLabels 代码是

Sub DisplayLabels()

    With ActiveChart
        ActiveChart.FullSeriesCollection(1).Select
        ActiveChart.FullSeriesCollection(1).ApplyDataLabels
    End With

End Sub

Sub HideLabels()

    With ActiveChart
        ActiveSheet.ChartObjects("Basic_Chart").Activate
        ActiveChart.FullSeriesCollection(1).Select
        ActiveChart.FullSeriesCollection(1).DataLabels.Select
        Selection.ShowValue = False
    End With

End Sub

问题是，一旦我勾选了该框，图表就不再被选中/激活，因此代码无法工作。有没有解决的办法。我希望这是可在多张纸上重复使用的代码，因此不能直接引用图表。