如何绘制OHLC图？

Question

您好，我正在尝试绘制一些加密货币的图表。我正在尝试绘制图表BTC / USD，但它不起作用。这是我的代码：

Public Sub RemoveDecimals()
    'bail out if no cells are selected:
    If Not TypeOf Selection Is Excel.Range Then Exit Sub 

    Dim cell As Range
    For Each cell In selectedCells
        'ignore non-numeric and percentage cells:
        If IsNumeric(cell.Value) And cell.Style <> "Percent" Then
            cell.NumberFormat = "_($* #,##0_);_($* (#,##0);_($* ""-""??_);_(@_)"
        End If
    Next
End Sub

但是当我尝试执行此代码时，我什么也没有得到，只是白屏，却没有图表，这很奇怪！

能帮我吗？

非常感谢您！