Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

Spread设置标签型单元格


 / Published in: Visual Basic
 

  1. 'スプレッドシートにラベルセルをセットする。
  2. '
  3. ' Syntax: SetValueToSpreadCell AnySs, Col&, Row&, Var
  4. '
  5. ' IN: AnySs 対象となるスプレッドシート
  6. ' Col& 値をセットする列
  7. ' Row& 値をセットする行
  8. ' Var セットする値
  9. '
  10. Public Sub SetLableToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Var As Variant)
  11.  
  12. ' 設定を SPREADへ反映します。
  13. With AnySs
  14. .Col = Col
  15. .Row = Row
  16. .CellType = CellTypeStaticText ' セルタイプの設定
  17. .Text = Var ' キャプション (Value プロパティでの代用可)
  18. .TypeTextShadowIn = True ' 3D - 凹型表示
  19. .TypeHAlign = 0 ' 水平配置
  20. .TypeVAlign = 2 ' 垂直配置
  21. End With
  22.  
  23. End Sub

Report this snippet  

You need to login to post a comment.