VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/01/05(Mon) 14:02
投稿者： ak
Ｅメール：
ＵＲＬ：
タイトル： Re: エクセルのオートシェイプについて

こんにちは。

こんな感じでしょうか？

'(*.frm)フォームにCommandButtonを１個配置してください。
'「Microsoft Office 9.0 Object Library」を参照設定してください。
'実行環境：Win2000,VB6 SP5,Excel2000
Option Explicit
Private pxlsExcel    As Excel.Application
Private pxlsWkBook   As Excel.Workbook

Private Sub Form_Load()
    Set pxlsExcel = CreateObject("Excel.Application")
    Set pxlsWkBook = pxlsExcel.Workbooks.Add
    pxlsExcel.Visible = True
End Sub

Private Sub Command1_Click()
    With pxlsWkBook.ActiveSheet.Shapes.AddShape(51, 35.25, 35.25, 43.5, 16.5)
        .TextFrame.Characters.Text = "1"    'テキスト追加及び表示『1』
        .Rotation = 90                      '９０度回転
    End With
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Set pxlsExcel = Nothing
    Set pxlsWkBook = Nothing
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -