答案 0 :(得分:0)
我添加了* ... **行
'GET RANGE FOR CHART X-AXIS LABELS
got_label_range = True ' True to re-activate the input range
Set chart_labels = GetRange("Please select the range containing the LABELS" & Chr(13) & "(press ESC if no labels available)")
**chart_labels.NumberFormat = "0.00"**
If IsNotOk(chart_labels) Then
got_label_range = False
End If
With .Chart.Axes(xlCategory).TickLabels
.Alignment = xlCenter
.Offset = 100
.ReadingOrder = xlContext
.Orientation = xlHorizontal
**.NumberFormat = "m/d/yyyy"**
End With