Excel VBA 質問スレ Part29

1 名前：デフォルトの名無しさん mailto:sage [2013/03/31(日) 09:29:32.22 ] ExcelのVBAに関する質問スレです ★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。 ★2 ExcelのVBA以外の部分に関する質問はNGです。 　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。 ★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。 　VBAとは､『Visual Basic for Applications』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 ★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 ★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 ★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R） 前スレ:Excel VBA 質問スレ Part28 toro.2ch.net/test/read.cgi/tech/1359607536/ 関連スレ：VBAなんでも質問スレ toro.2ch.net/test/read.cgi/tech/1342087380/ 83 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 15:30:25.65 ] >>82 貼り付けお願いできませんか？ 84 名前：83 mailto:sage [2013/04/04(木) 15:50:07.05 ] Option Explicit 'ファイル保存ダイアログ Private Function GetSaveFileName() As String Dim sfile As String sfile = Application.GetSaveAsFilename(fileFilter:="JPGファイル (*.jpg), *.jpg") If sfile = "False" Then GetSaveFileName = "" Else GetSaveFileName = sfile End If End Function Private Sub CommandButton1_Click() Dim rg As Range Dim cht As Chart Dim fina As String 85 名前：83 mailto:sage [2013/04/04(木) 15:50:37.62 ] '保存ファイル名を取得 fina = GetSaveFileName If fina <> "" Then '選択範囲を取得 Set rg = Selection '選択した範囲を画像形式でコピー rg.CopyPicture appearance:=xlScreen, Format:=xlPicture '画像貼り付け用の埋め込みグラフを作成 Set cht = ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart '埋め込みグラフに貼り付ける cht.Paste 'JPEG形式で保存 cht.Export Filename:=fina, filtername:="JPG" '埋め込みグラフを削除 cht.Parent.Delete End If End Sub 86 名前：83 mailto:sage [2013/04/04(木) 15:51:34.76 ] これを保存ダイアログなしで自動でtestで保存。指定したセル範囲をキャプチャに改造して頂けませんか？ 87 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 16:09:36.80 ] 甘えすぎ 88 名前：83 mailto:sage [2013/04/04(木) 16:19:20.62 ] >>87 じゃあ範囲は自分で、できたから 保存ダイアログなしで自動でtestで保存。教えてよ 89 名前：デフォルトの名無しさん [2013/04/04(木) 16:38:58.05 ] blog-imgs-46-origin.fc2.com/c/h/a/chaigon/CapWnd.txt ※拡張子が txt となっていますが、実体はZIPファイルです。ダウンロード後、拡張子を zip に書き換えて解凍してください。 ※CapWnd.basファイルをVBAProjectから「ファイルをインポート」すればOK！ 使用例１ ： 画面全体の画像をファイルに保存する Public Sub SavePictureOfScreen()     Dim pic As IPictureDisp     Set pic = CaptureScreen()     Call SavePicture(pic, "C:\screen.bmp") End Sub 使用例２ ： アクティブウィンドウの画像をファイルに保存する ※保存した画像の一部がおかしい不具合あり。原因は調査中。 Public Sub SavePictureOfActiveWindow()     Dim pic As IPictureDisp     Set pic = CaptureActiveWindow()     Call SavePicture(pic, "C:\activewindow.bmp") End Sub 90 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 17:42:44.07 ] コード作成依頼に対応するなよ。 91 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 17:45:56.00 ] >>83 こういうお願いはこっちにしろ。 VBAなんでも質問スレ toro.2ch.net/test/read.cgi/tech/1342087380/ 92 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 17:53:44.09 ] >>91 誘導ありがと。修正もここでしてもらると思ってたわ。 失礼しました 93 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 18:05:07.89 ] >>92 >>1★5を死ぬまで読んでろ。 94 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 18:22:45.23 ] >>92 男が書くコードは修正しません 95 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 18:45:13.45 ] 私オカマなんたけど 96 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 18:51:04.19 ] 事務のパソコンが壊れたため１台新しくwin8を買ったため excelを2003から2010に変えました それでもう一台別のXPパソコンのほうも2010にしたんだけど win8の2010でシート上のactivXのテキストボックスを作って保存したものを XPの2010で開くとなんとテキストボックスのサイズもフォントサイズも一回りでかくなってるという 気持ち悪い現象が起きてます｡ なんかバグっぽいけど治す方法とかありましたら教えてください｡ 97 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 20:48:20.40 ] >>96 >>1★5 98 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 21:09:42.76 ] >>97 >>1 99 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 21:52:30.50 ] >>96 星五つだってよ、よかったな！ 100 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 23:45:58.20 ] >>1★5に反発してた子が、>>1★5を推す奴はキチガイという印象操作のために >>1★5に該当しない案件にまで>>1★5を指摘ししてネガキャンしてるのか そこまで見えてくると、逆に>>1★5に反発してる子の方が どんだけキチガイで姑息で陰湿で浅学浅慮なのか、ありありと解ってしまうな 101 名前：デフォルトの名無しさん mailto:sage [2013/04/04(木) 23:59:23.84 ] 必死すぎ 102 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 00:17:41.10 ] だよな なんでそこまで必死にネガキャンしてまで>>1★5を叩こうとするんだろう？ 103 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 00:18:59.16 ] 白ももが必要以上に手厚いのがウザいんじゃね 104 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 00:39:34.51 ] つーか丸投げグレグレしたい奴が、ここを自分に都合の良い場に 改変したくて騒いでるだけだろ 105 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 00:41:40.83 ] ★5そのものじゃなく、高圧的な態度 106 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 00:49:12.48 ] 態度って、誰の？ 107 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 01:22:39.49 ] どっちでもいいよ むしろ7追加してこんなことで荒す奴は 来んなってしといた方がいい 108 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 03:10:01.82 ] 最初どう言う事か分からなかったけど>>97はあの基地外が書き込んだものではないと言う事なのか？ だから>>100以降あの基地外らしき人物の自演レスが暫く続いているのか。 どっちも迷惑だから早く氏んでね。 109 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 06:35:27.10 ] はいはい、印象操作乙 でも他人に自演のレッテル貼る前に 自分の自演がバレないようにもう少し演技したら(￣ー￣)ﾆﾔﾘｯ 110 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 06:56:46.25 ] 結局>>1のせいでまた荒れるのか 111 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 07:21:36.55 ] 失礼、間違えました ×結局>>1のせいでまた荒れるのか ○結局>>1に粘着する奴のせいでまた荒れるのか 112 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 09:45:01.35 ] 印象操作wwww 113 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 10:30:59.20 ] ActiveSheet.Range("A1:A2").Value これでエラーになるの何でですかね 114 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 10:31:43.52 ] >>110の印象操作に、当てつけのように印象操作返しか やるなw 115 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 10:42:06.65 ] >>113 それ自体はエラーにならないはずだが 返る値が配列なので、代入先が配列変数じゃないと型不一致でエラーになる 116 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 10:47:37.63 ] >>115 ヒント�d。もう一度コード見直す。 117 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 12:22:11.49 ] 印象操作返しｗｗｗｗｗｗｗ 118 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 15:32:53.88 ] >>116 それはヒントじゃなくて答えだろ 119 名前：デフォルトの名無しさん mailto:sage [2013/04/05(金) 17:30:28.53 ] はやく春休み終わらないかなぁ

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef