ÈçºÎ½«VBAÓï¾ä·­Òë³ÉdelphiÓï¾ä

Sub aSmpLine()
  Sheet1.Shapes.AddLine(100, 100, 180, 150).Name = "Line1"
  With [line1].ShapeRange.Line
    .Weight = 3
    .DashStyle = msoLineSolid
    .Style = msoLineThinThin
    .Visible = True
    .ForeColor.SchemeColor = 10
    .BackColor.RGB = RGB(255, 255, 255)
    .EndArrowheadStyle = msoArrowheadTriangle
    .EndArrowheadLength = msoArrowheadLengthMedium
    .EndArrowheadWidth = msoArrowheadWidthMedium
  End With
  MsgBox "Will deleted!"
  [line1].Delete
End Sub

Çë°ï潫ÒÔÉÏEXCELµÄVBAÓï¾ä·­Òë³ÉDelphiÓï¾ä£¬¼±Óã¬Ð»Ð»£¡

---

û·¨Ö±½Ó·­Ò룬¾ÍÊÇ»­Ïß»­¼ýÍ·Âð£¬Äã×Ô¼ºÐ´¾ÍÊÇÁË£¬»¹ÓÐʲôºÃ·­ÒëµÄ

---

±¾ÈËÊÇdelphiÐÂÊÖ£¬²»ÖªµÀÔõôд¡£Çë½Ì¸öÎÊÌ⣺sh:=sheet.shapes.addline(288,14.25,720,14.25);ÏßÎÒÊÇ»­³öÀ´ÁË£¬µ«ÎÒÒªÈçºÎ¸ÄΪ¼ýÍ·ÄØ£¿ÈçºÎ¶¨ÒåÏߵĴÖϸÄØ£¿ÏßµÄÑÕÉ«£¿

---

²»¶®µÄÈË·¹ý£¬delphi ÖеÄOLE²Ù×÷ÏÂEXCEL

---

ÎÒ×Ô¼º¸ã¶¨ÁË¡£
²Î¿¼´úÂ룺
uses  Comobj; 
   
  var 
          vExcelApp:  Variant; 
  begin 
          vExcelApp  :=  CreateOleObject('Excel.Application'); 
          //  ÏÔʾExc