用VBA将字符导出为图片

用户6021899

发布于 2020-04-27 06:13:36

1.3K00

代码可运行

文章被收录于专栏：Python编程 pyqt matplotlibPython编程 pyqt matplotlib

运行总次数：0

代码可运行

最近打算写一个简单的图片文字识别程序，想先从简单的ASCii码字符串开始。我们需要数据集，即各个字符对应的图片数据。Python的很多图像库可以办到。但是这次选择用Excel的VBA试下，因为Excel可以将单元格复制为图片。

Option Explicit
Sub generateImage():
    Application.ScreenUpdating = False ‘关闭屏幕刷新
    Columns("A:B").Select
    With Selection
        .Interior.PatternColorIndex = xlAutomatic
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter’居中对齐
        .ColumnWidth = 4.38
        .RowHeight = 50
        '.Font.Name = "Calibri"
        .Font.Name = "Arial"
        .Font.Size = 30
    End With
    
    Dim i%, row%, symbol$
    Dim rng
    i = 33
    Open "charts.txt" For Output As #1
    Do While i < 127
        row = i - 32
        symbol = Chr(i)
        Cells(row, 1) = symbol
        Print #1, symbol ‘将字符一行一行地写入文本文件，与图片一一对应
        Range("A" & row).CopyPicture Appearance:=xlPrinter, Format:=xlPicture
        
        With ActiveSheet.ChartObjects.Add(0, 0, 36, 36).Chart
            .Parent.Select
            .Paste
            .Export row & ".jpg", "JPG" ’导出图片到当前文件夹
            .Parent.Delete
        End With
        'Range("B" & row).Select
        'ActiveSheet.Paste
        i = i + 1
    Loop
    Close #1
    Application.ScreenUpdating = False
End Sub