vba截图字体加粗问题

楚凉LL

我用vba截图生成图片报表，如果报表中没有字体加粗，那生成的图片就是正常的不加粗的样子，但是如果有一个字加粗了，那图片中其他行列都有概率会被加粗，如图的表头就是我没加粗的部分，截图的时候却被加粗了，且不是一定会发生的，概率性发生；这个问题也是困扰了很久，自己查过很多也尝试过很多代码都不能解决，来eh请教一下各位大佬，我的截图代码如下：

Function pics3(shtname, picname, rangename)
        Dim zoom#, rng As Range
        zoom = 2: Set rng = Worksheets(shtname).Range(rangename)
        myFolder = ThisWorkbook.Path & "\pic\"
        Worksheets(shtname).Activate
        Set rng = Worksheets(shtname).Range(rangename)
   
        rng.CopyPicture xlPrinter, xlPicture
        nm = picname & Sheets("参数页").Range("b4") & ".jpg"
           With ActiveSheet.ChartObjects.Add(0, 0, rng.Width * zoom, rng.Height * zoom).Chart
                .Parent.Select
                .Paste
                .Export myFolder & nm, "JPG"
                .Parent.Delete
            End With

3190496160

那就用代码先取消所有字体加粗呀

楚凉LL

3190496160 发表于 2024-4-17 10:05
那就用代码先取消所有字体加粗呀

有些字体需要加粗展示的 不然设置模板的时候直接取消了就好 也不用在代码里取消现在的问题是不该加粗的也被加粗了