编程论坛 → Excel/VBA论坛

如何提取图形作为模板

syaoraney 发布于 2022-12-27 22:27， 825 次点击

只有本站会员才能查看附件，请登录

各位大神，
如何通过插件，提取c列的模板，然后得到F列的结果？
感谢

2 回复

woolley2023-01-31 16:53

没明白，是要将A列的内容加个文本框，放到F列吗？

woolley2023-02-01 10:23

试试这个代码
Sub Macro1()
    Dim i As Integer
    Dim t As Worksheet
    Dim myshape As Shape
    Set t = ActiveSheet
    t.Shapes(1).Select
    Selection.Copy
    For i = 2 To 4
        Cells(i, 6).Select
        ActiveSheet.Paste
        Set myshape = t.Shapes(i)
        myshape.Select
        Selection.Characters.Text = Cells(i, 1)
    Next i
End Sub