Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62783 / 76732

←次へ　｜　前へ→


	【18550】Re:イメージ図をエクセルに・・・訂正

ichinose - 04/9/29(水) 13:09 -


	引用なし

	パスワード

>'===========================================================
>Private Sub CommandButton1_Click()
>　 Dim pic As Picture
>　 Dim txt As TextBox
>　 Call SavePicture(Image1.Picture, ThisWorkbook.Path & "\temp.gif")
>　 Set pic = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\temp.gif")
>　 Set txt = ActiveSheet.TextBoxes.Add(pic.Left + 6, pic.Top + pic.Height, Label1.Width, Label1.Height)
>　 With Label1
>　　 txt.Text = Label1.Caption
>　　 txt.Font.Name = .Font.Name
>　　 txt.Font.Size = .Font.Size
>　　 txt.ShapeRange.Fill.ForeColor.RGB = .BackColor
>　　 ActiveSheet.Shapes.Range(Array(pic.Name, txt.Name)).Group
>　　 End With
　　On Error Resume Next
　　Kill ThisWorkbook.Path & "\temp.gif"
　　On Error GoTo 0
>　 Set pic = Nothing
>　 Set txt = Nothing
>End Sub

訂正して下さい。要らないファイルは消しておかないと・・・。

0 hits

▼

【18486】イメージ図をエクセルに・・・ 初心者 04/9/28(火) 12:13