在单元格内分行,用alt+enter,然后调整两行字的位置,

首先选中该单元格，格式-单元格-对齐，水平对齐选靠左，垂直对齐选靠上。光标放在在下一行要显示的文字前，按Alt+Enter键。再把光标放在上一行文字的最前端，按空格键调整最后一个文字到单元格最右边。

控件工具箱－－其他控件－－"Mircrosoft Web Browser"

右击“Mircrosoft Web Browser”，选择代码编辑。写入以下代码：

Public Sub a()
      WebBrowser1.Document.Open
      WebBrowser1.Document.writeln "<IMG SRC=" & VBA.Chr(34) & “GIF路径”& VBA.Chr(34) &    "            BORDER=" & VBA.Chr(34) & "0" & VBA.Chr(34) & "

在Excel的工具条上右击，选中“控件工具箱”

找到控件工具箱上的“其他控件”图标（一个斧子，一个搬手），选中里面的“shockwave falsh object”

在excel中会出现一个方框，根据需要，用鼠标拖拉或属性设置其大小．在这个控件中右击，选中＂属性＂，找＂自定义＂，打开对话框，写上＂影片ＵRL＂的路径，选中＂嵌入影片＂．保存．

如果还没效果，关闭，重新打开就有了．

行高:

    Rows(count).RowHeight = 值

列宽:

   Columns.ColumnWidth    =   值

VB中的MSFlex的行列是从0开始的

Excel的行列是从1开始的.

SheetName.UsedRange.Columns.Count    '最大列值

SheetName.UsedRange.Rows.Count '最小行值

objBook as Excel.WorkBook

'前面执行Excel打开

         objBook.Sheets.Add '添加sheet
  
          With objBook.ActiveSheet
              .Name = 新名字           '改名
          End With

          Dim objExcel As Excel.Application
          Dim objBook As Excel.WorkBook
          Dim objwork As Excel.WorkSheet
        
          Set objExcel = CreateObject("Excel.Application") '连接已打开的excel文件