excel如何根据公式插入艺术字,如下图,根据A、B列数值（利用公式）得到C列图形

这段代码是自动更新的，它利用了工作表事件worksheet_change来现实，只要某个单元格的数值被更新，就会自动执行使艺术字更新。 需要几个艺术字就手工添加几个，然后适当增加代码中对应的艺术字部分就行了。

先在thisworkbook模块中写入下面代码： Private Sub Workbook_Open() '生成艺术字 With ActiveSheet .DrawingObjects.Delete '删除所有形状 s = 2 For i = 1 To 6 Step 2 '生成三组共6个，两两组合 t1 = Cells(s, 1) 'A列取值 t2 = Cells(s, 2) 'B列取值 .Shapes.AddTextEffect(msoTextEffect1, t1, "宋体", 18#, msoFalse, msoFalse, 100, 50 + i * 50).Name = "word" & i .Shapes.AddTextEffect(msoTextEffect1, t2, "宋体", 18#, msoFalse, msoFalse, 120, 70 + i * 50).Name = "word" & (i + 1) .Shapes("word" & i).IncrementRotation 90# '旋转90度 s = s + 1 Next End With End Sub 再在某个放艺术字的工作表模块中放入下面代码： Private Sub Worksheet_Change(ByVal Target As Range) s = 2 For i = 1 To 6 Step 2 Shapes("word" & i).TextEffect.Text = Cells(s, 1) Shapes("word" & i + 1).TextEffect.Text = Cells(s, 2) s = s + 1 Next End Sub 这样就可以使用了。