zoukankan      html  css  js  c++  java
  • 20181013xlVba据成绩条生成图片文件

    Sub CreateGoalPictures()
        '声明变量
        Dim Wb As Workbook
        Dim Sht As Worksheet
        Dim Shp As Shape
        Dim Pic, EndRow
        Dim FilePath, StudentName
        '设置变量
        Set Wb = Application.ThisWorkbook
        Set Sht = Wb.Worksheets(1)
        
        With Sht
            EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
            For i = 1 To EndRow '循环所有学生成绩条
            
                If .Cells(i, 2).Value = "姓名" Then
                    StudentName = .Cells(i + 1, 2).Value '获取当前学生姓名
                    FilePath = Wb.Path & "" & StudentName & ".jpg" '构建图片路径
                    
                    For Each Shp In .Shapes '预先删除工作表中的图形
                        Shp.Delete
                    Next Shp
                    
                    .Cells(i, 1).CurrentRegion.Copy '复制学生成绩条区域
                    Set Pic = .Pictures.Paste '选择性粘贴为图片
                    
                    Pic.Copy '复制该图片
                    With .ChartObjects.Add(0, 0, Pic.Width, Pic.Height).Chart '新建图标
                        .Paste '粘贴图片
                        .Export FilePath '导出图片文件
                        .Parent.Delete '删除图表
                    End With
                End If
            Next i
        End With
        
        '释放对象
        Set Wb = Nothing
        Set Sht = Nothing
        Set Pic = Nothing
    End Sub
    

      

  • 相关阅读:
    java练习题2
    java练习题
    java输入输出
    字符集
    eclipse快捷键
    类和对象练习-people
    类和对象-三角形
    权限修饰符-输出求和阶乘
    权限修饰符-练习
    权限修饰符-father&&son
  • 原文地址:https://www.cnblogs.com/nextseven/p/9782538.html
Copyright © 2011-2022 走看看