きちんとルールを読まず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

ここはマルチポスト厳禁ですよ。

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

> プログラムを実行し、Formにでできているものをそのまま、
> Wordにうつしたいんですが、そんなことできますか？？

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

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

neptune san  花ちゃん san
返信ありがとうございました。
上の記事直しました。
もしよければよんでください

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

> Word にコピーしてどうするの？
>


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

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

こんにちは
向こうも片付けたようなので、

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

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

> 枠に対して、実行結果がちいさく、Word上であまりよくみえないんですが、

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

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

neptuneさん、花ちゃんさん返信ありがとうございます。

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

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

Me.BorderStyle = vbFixedSingle のような固定型のForm にして
グラフの描画領域の大きさにForm で実行して見て下さい。

花ちゃんさんありがとうございます！！

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

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

できました！！
色々お世話になりました。
本当に感謝しています。
一番最初に乗せたプログラムでX=X+1、Y=Y+1
としていて、数学的に+1は変えたくなかったんですが、
どうしてもできなくて、+20にして、Scaleなどもすべて変えてみたらできました。