如何提取学籍卡的内容和提取照片重命名

vvw123

终于找到可利用的啦，学习学习

szqhb

ione_fox 发表于 2019-2-27 16:40
发现个小问题 ：
With Sheet1.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart
          ...

要加个\ ：
With Sheet1.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart
                     .Parent.Select'16版测试不过
                    .Paste
                    .Export wdDoc.path & "\提取后重命名的照片\" & arr2(i, 3) & ".jpg"
                    .Parent.Delete
                End With

szqhb

ione_fox 发表于 2019-2-27 16:40
发现个小问题 ：
With Sheet1.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart
          ...

如果我要用”姓名“重命名相片，如何修改代码给重名的学生命名相片，如张三，张三1、张三2……，或者第二个张三，在他的名字后面加上他在Word中排列的序号。不然的话，只提取了最后一个重名学生的相片（前面的同名图片被覆盖了）。

同名学生相片命名见https://club.excelhome.net/thread-1658996-1-1.html

szqhb

未忘初心 发表于 2019-2-27 14:13

请教：       '同名学生如何提取相片。如何修改代码，使得第二个起的同名学生在名字后面加上该生所在的序号，即代码中的I或者学籍号，而不是覆盖前面的相片。
        With Worksheets("Sheet1").ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart
                    .Parent.Select
                    .Paste
                   ' .Export wdDoc.Path & "\提取后重命名的照片\" & arr2(I, 3) & ".jpg" '相片以学籍号命名
                    .Export wdDoc.Path & "\提取后重命名的照片\" & arr2(I, 1) & ".jpg"  '相片以学生名字命名，但需要注意重名学生，后面重名的学生无法提取相片
                  
                        '同名学生如何修改代码，使得第二个同名学生在名字后面加上该生所在的序号，即代码中的I，或者加上学籍号
                    .Parent.Delete
                End With

szqhb

未忘初心 发表于 2019-2-27 19:55
或者你改成Worksheets("Sheet1")试试
ChartObjects 看看你的16版这个对象能用不

大师好，看看24楼提的同名学生相片命名问题能否解决？

cyq4896

我提取的图片也是白板

cai2532

这个学籍代码比较实用。