以下是一个使用VBA进行饼图数据标签格式化的示例代码：

Sub FormatPieChartLabels()
    Dim cht As Chart
    Dim ser As Series
    Dim lbl As DataLabel
    Dim i As Integer
    
    ' 获取第一个图表
    Set cht = ActiveSheet.ChartObjects(1).Chart
    
    ' 循环遍历每个数据系列
    For Each ser In cht.SeriesCollection
        ' 启用数据标签
        ser.HasDataLabels = True
        
        ' 循环遍历每个数据标签
        For i = 1 To ser.Points.Count
            Set lbl = ser.Points(i).DataLabel
            
            ' 设置数据标签格式
            With lbl
                .Position = xlLabelPositionOutsideEnd ' 设置标签位置为数据点外侧
                .NumberFormat = "0.00%" ' 设置百分比格式
                .Font.Bold = True ' 设置字体为粗体
                .Font.Size = 12 ' 设置字体大小
                .Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 设置字体颜色为红色
            End With
        Next i
    Next ser
End Sub

这段代码将遍历第一个图表中的每个数据系列和数据点，并将数据标签的位置设置为数据点的外侧，将数据格式设置为百分比，将字体设置为粗体，将字体大小设置为12，将字体颜色设置为红色。

要运行此代码，请按下Alt + F11打开VBA编辑器，然后将代码粘贴到一个新的模块中。然后，按下F5运行代码。