tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルFormの結果をWordへ
記事No11249
投稿日: 2008/01/28(Mon) 12:48
投稿者あんぱん
きちんとルールを読まず2個の掲示板に書き込んで
しまったのは大変申し訳ありませんでした。
お忙しいところすみませんが、
本当によろしくお願いします。
下のがプログラムです。
実行するとFormに結果が出ますよね。
そのFormを印刷することができるのに、
Wordとかにコピーする方法がまったくわかりません。
実行結果ののったForm自体をWordにコピーしたいんです。
教えてください。
Option Explicit

Private Sub Form_Load()
Randomize

  End Sub

Private Sub 印刷_Click()
印刷.Visible = False
Form1.PrintForm
印刷.Visible = True

End Sub

  Private Sub Form_Click()
  
  
CurrentX = -115
CurrentY = 3
Print "0"
CurrentX = -60
CurrentY = 3
Print "15"
CurrentX = 0
CurrentY = 3
Print "20"
CurrentX = 58
CurrentY = 3
Print "25"
CurrentX = 115
CurrentY = 3
Print "30"
CurrentX = -100
CurrentY = -65
Print "25℃に集まる"

  Static X As Long
  Static Y As Long
  Dim Z As Single
  Dim T25 As Single
  Dim i As Long
  

DrawWidth = 3
  



Line (-120, 0)-(-90, 0), QBColor(2)
Line (-90, 0)-(-30, 0), QBColor(10)
Line (-30, 0)-(30, 0), QBColor(14)
Line (30, 0)-(90, 0), QBColor(12)
Line (90, 0)-(120, 0), QBColor(4)
Do While i <= 10000

DrawWidth = 1

Z = Rnd
T25 = 60 - X

If X >= 0 Then
If Z <= 0.25 Then
If T25 >= 0 Then
  
Line (X, Y)-(X + 1, Y), QBColor(0)
X = X + 1
End If


If T25 < 0 Then
  
Line (X, Y)-(X - 1, Y), QBColor(0)
X = X - 1
End If
End If

If Z > 0.25 And Z <= 0.5 Then
If T25 < 0 Then

Line (X, Y)-(X - 1, Y), QBColor(0)
X = X - 1
End If
  
If T25 >= 0 Then
  
Line (X, Y)-(X + 1, Y), QBColor(0)
X = X + 1

End If
End If

If Z > 0.5 And Z <= 0.75 Then
  
Line (X, Y)-(X, Y + 1), QBColor(0)
Y = Y + 1
  
End If

If Z > 0.75 Then
Line (X, Y)-(X, Y - 1), QBColor(0)
Y = Y - 1

End If
End If


i = i + 1
Loop


End Sub

[ツリー表示へ]
タイトルRe: Formの結果をWordへ
記事No11251
投稿日: 2008/01/28(Mon) 13:01
投稿者neptune
ここはマルチポスト厳禁ですよ。

ここの初めにお読み下さいを読んで下さい。中学校もマルチの場合は報告するのがルール
です。どちらもキチンと後始末して下さい。

[ツリー表示へ]
タイトルRe: Formの結果をWordへ
記事No11252
投稿日: 2008/01/28(Mon) 13:09
投稿者花ちゃん
> プログラムを実行し、Formにでできているものをそのまま、
> Wordにうつしたいんですが、そんなことできますか??

そのまま、Wordにうつしたい と言っても、 そのままの意味が理解できません。
画面の図のだけの事かコントロールやその中身も含まれるのか?
もう少し具体的(5W1H 入れて)に書かないとどう判断したらいいのか見ている人には
解らないので結果レスもつきませんよ。

マルチポストでしたか? 道理で

[ツリー表示へ]
タイトルRe^2: Formの結果をWordへ
記事No11256
投稿日: 2008/01/28(Mon) 18:05
投稿者あんぱん
neptune san  花ちゃん san
返信ありがとうございました。
上の記事直しました。
もしよければよんでください

[ツリー表示へ]
タイトルRe^3: Formの結果をWordへ
記事No11257
投稿日: 2008/01/28(Mon) 18:59
投稿者花ちゃん
Word にコピーしてどうするの?

Private Sub Command1_Click()
   'Form 上の画像をクリップボードにコピー
   Clipboard.Clear
   Clipboard.SetData Me.Image
  
   以下 Word を起動して貼り付けたい位置で .Paste
   (下記参照)
   http://hanatyan.sakura.ne.jp/vbhlp/word01.htm

End Sub

VB6.0 の場合、変数名やプロシージャ名に日本語(全角文字)は使用しない方が
無難です、思わぬトラブルの元になります。

[ツリー表示へ]
タイトルRe^4: Formの結果をWordへ
記事No11258
投稿日: 2008/01/28(Mon) 19:12
投稿者あんぱん
> Word にコピーしてどうするの?
>


花ちゃんさん本当に本当にどうもありがとうございました!!!
私の調べ方が甘いのかも知れないですが、どこみても
どうしてもわからなくて。。。。
本当に助かりました。
生物の研究をしていて、その動きをシミュレーションしています。
それで、その研究結果を発表しなければいけなくて、
どうしてもWordに結果を貼り付けたかったんです。
ありがとうございました。

もうひとつ教えていただきたいんですが、
枠に対して、実行結果がちいさく、Word上であまりよくみえないんですが、
Scaleを変えてもかわりませんでしたが、なにか方法はありますか??

[ツリー表示へ]
タイトルRe^5: Formの結果をWordへ
記事No11259
投稿日: 2008/01/28(Mon) 22:26
投稿者neptune
こんにちは
向こうも片付けたようなので、

> 枠に対して、実行結果がちいさく、Word上であまりよくみえないんですが、
> Scaleを変えてもかわりませんでしたが、なにか方法はありますか??
手動でということですか?

元の画像を描画時大きくするか
Wordの方で何とかしたいなら図のプロパティでサイズを弄くるとか
(VBAではInlineShapeオブジェクトのプロパティはいろいろあるみたい)
になるんじゃないですか?

[ツリー表示へ]
タイトルRe^5: Formの結果をWordへ
記事No11260
投稿日: 2008/01/29(Tue) 00:13
投稿者花ちゃん
> 枠に対して、実行結果がちいさく、Word上であまりよくみえないんですが、

元の画像サイズ(Formのサイズ)が大きいので、Word 上で縮小されて表示されて
いませんか?
画像のサイズに合せた Form のサイズにして見ては。

Form のサイズ と Word 上の画像のサイズを教えて下さい。

[ツリー表示へ]
タイトルRe^6: Formの結果をWordへ
記事No11264
投稿日: 2008/01/29(Tue) 12:39
投稿者あんぱん
neptuneさん、花ちゃんさん返信ありがとうございます。

元の描写の大きさを変えるとか、大きさをあわせるというのが
ちょっとわからなかったので、もう一度教えてください!!

Formのサイズが、3600×4800で、Scaleが160×240です。
Word上に、大きなわくで、112mm×149mmででるんですが、その枠の上の隅
の方に、Formの結果が小さく表示されている状態です。
理想では、大きな枠にFormの結果そのものが入ればいいんですが。。。
Scaleのせいということはありますか??

[ツリー表示へ]
タイトルRe^7: Formの結果をWordへ
記事No11265
投稿日: 2008/01/29(Tue) 12:55
投稿者花ちゃん
Me.BorderStyle = vbFixedSingle のような固定型のForm にして
グラフの描画領域の大きさにForm で実行して見て下さい。

[ツリー表示へ]
タイトルRe^8: Formの結果をWordへ
記事No11268
投稿日: 2008/01/29(Tue) 13:26
投稿者あんぱん
花ちゃんさんありがとうございます!!

> グラフの描画領域の大きさにForm で実行して見て下さい。

理解できなくて、大変申し訳ないんですが、これはどういう意味ですか??
プロパティをいじるんですか??

[ツリー表示へ]
タイトルRe^9: Formの結果をWordへ
記事No11270
投稿日: 2008/01/29(Tue) 15:00
投稿者あんぱん
できました!!
色々お世話になりました。
本当に感謝しています。
一番最初に乗せたプログラムでX=X+1、Y=Y+1
としていて、数学的に+1は変えたくなかったんですが、
どうしてもできなくて、+20にして、Scaleなどもすべて変えてみたらできました。

[ツリー表示へ]