更改Excel注释形状图片文件格式

嗨我想更改评论形状图片（填充）的文件格式，以及标准的高度和宽度。尝试了下面的代码，但它继续抛出应用程序定义的错误“运行时错误1004”。请指导我纠正这一问题。更改Excel注释形状图片文件格式

Sub ReduceImageSize() 

    Dim cmt As Comment 
    Dim MyChart As Chart 
    Dim MyPicture As String 
    Dim pic As Object 
    Dim PicWidth As Long 
    Dim PicHeight As Long 
    Dim num As Long 
    num = 1 
    Application.ScreenUpdating = False 
    For Each cmt In ActiveSheet.Comments 
     With cmt 
      .Visible = True 
      .Shape.CopyPicture Appearance:=xlScreen, Format:=xlPicture 
      .Visible = False 
      PicHeight = .Shape.Height 
      PicWidth = .Shape.Width 

      Set MyChart = Charts.Add(0, 0, 100, 100).Chart 
       With MyChart.Parent 
        .Width = PicWidth 
        .Height = PicHeight 
        .ChartArea.Select 
        .Paste 
        .ChartObjects(1).Chart.Export Filename:="C:\Temp\MyPic " & num & ".jpg", FilterName:="jpg" 
       End With 
       .Shape.Fill.UserPicture PictureFile:="C:\Temp\MyPic " & num - 1 & ".jpg" 
       num = num + 1 
       ActiveChart.Delete 

      End With 

    Next 
    Application.ScreenUpdating = True 
End Sub

来源

2017-05-24 Joe

尝试更改格式：= xlPicture格式：= xlBitmap因为jpg是位图类型的图像。从MS看到以下内容。 https://msdn.microsoft.com/en-us/library/office/ff837557.aspx

而且还https://msdn.microsoft.com/en-us/library/office/ff195475.aspx

来源

2017-05-24 13:10:58

不，不工作。 – Joe

那么为什么你的解决方案包含格式：= xlBitmap？不客气 –

问题在于ChartObjects不符合格式。我必须使用chartObjects更改图表。 – Joe

找到了解决办法：

Option Explicit 
Sub ReduceImageSize() 
    Dim cmt As Comment 
    Dim MyChart As ChartObject 
    Dim MyPicture As String 
    Dim pic As Object 
    Dim PicWidth As Long 
    Dim PicHeight As Long 
    Dim num As Long 
    Dim Mysheet As Worksheet 
    num = 1 
    Application.ScreenUpdating = False 
    For Each Mysheet In ThisWorkbook.Worksheets 
    For Each cmt In ActiveSheet.Comments 
     With cmt 
      .Visible = True 
      .Shape.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 
      .Visible = False 
      PicHeight = .Shape.Height 
      PicWidth = .Shape.Width 

      Set MyChart = ActiveSheet.ChartObjects.Add(0, 0, 100, 100) 
       With MyChart 
        .Activate 
        .Width = PicWidth 
        .Height = PicHeight 
        .Chart.Paste 
        '.ChartArea.Select 
        '.Paste 
        .Chart.Export Filename:="C:\Temp\MyPic " & num & ".jpg", FilterName:="jpg" 
       End With 
       .Shape.Fill.UserPicture PictureFile:="C:\Temp\MyPic " & num & ".jpg" 
       num = num + 1 
       MyChart.Delete 
      End With 
     Next 
     Application.ScreenUpdating = True 
    Next 
End Sub

来源

2017-05-25 04:35:06 Joe

更改Excel注释形状图片文件格式

回答

相关问题