RealPlayerの画面ハードコピーができません。
クリップボードを確認すると真っ黒になります。
何か良い方法を是非とも教えてやってください。

A 回答 (1件)

やってみたら出来て仕舞いました。

クリップボードは確認していませんが!
やり方はAlt+Print Screenでコピーしてペイントブラシに貼付けましたが
真っ黒にはならずに動画の一コマがちゃんと張付きましたよ!
因みに、Word、Excel、Photoshopでも問題無く出来ましたよ!
    • good
    • 0
この回答へのお礼

再生中ではできませんでしたが一時停止をしてやると
上手く出来ました。ちなみにPCはPC9821RA40
です。
ためしていただいてありがとうございました。

お礼日時:2001/11/11 23:19

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QWord2007終了時「図がクリップボードにコピーされています。~」を

Word2007終了時「図がクリップボードにコピーされています。~」を非表示に

 今晩は,質問させていただきます.どうぞよろしくお願いいたします.
Word2007で終了時に、クリップボードに図形が残っておりますと
メッセージ「図がクリップボードにコピーされています。Wordを終了した後に、
他のアプリケーションでこの図を利用しますか?」が表示されますが、
いつも「いいえ」でよいので非表示にできる方法がもしございましたら、
お教えいただけないでしょうか。
(同じ作業の繰り替えし時に、手間がかかっております故
どうにか非表示にしたいのでございますが。。)

 レジストリ変更などで対応できればよいのですが。。。
 もしお詳しい方がいらっしゃいましたら,どうぞよろしくお願いいたします。

Aベストアンサー

Normal.dotのドキュメントを閉じるときのイベントにクリップボードをクリアするコードを記述すれば可能です。

クリップボードをクリアするコードの例
Private Sub Document_Close()
On Error GoTo ErrHandle
Dim objCb As New DataObject
Call objCb.Clear
Call objCb.PutInClipboard
ErrHandle:
Set objCb = Nothing
End Sub

注意:DataObjectを使用するためには、参照設定で「Microsoft Forms 2.0 Object Library」にチェックを入れる必要があります。
ドキュメントにUserFormを挿入すると自動的に参照設定されます。

QOutlook2010でクリップボードに大きな

Outlook2010を完了した時「クリップボードに大きなサイズのデータが残っています。このウインドウを閉じた後、Microsoft Outlook または 他のアプリケーションでこのデータを使用しますか?」が表示されます。データを使用することもないので、これを表示させない方法を教えていただきたい。

Aベストアンサー

マクロを使えば、Outlookを閉じる直前にクリップボードを
無条件にクリアすることができます。

ただし、マクロを登録する手順は、やや煩雑です。

以下のソースコードを下記手順でマクロとして登録してください。

Private Sub Application_Quit()
Dim MyData As New DataObject
MyData.SetText ""
MyData.PutInClipboard
End Sub

[手順]
1.メニューバーから[ツール]→[マクロ]→[Visual Basic Editor]を選択する
2.表示されたウィンドウのうち、左端の「プロジェクト」内の
「Project1」の左の+をクリック→「Microsoft Office Outlook Objects」の
左の+をクリックして、「This Outlook Session」を表示する
3.表示されたウィンドウに、上のソースコードをコピー&ペーストする
4.Visual Basic Editorのメニューから[ツール]→[参照設定]を選択し
[参照設定]ダイアログボックスで「Microsoft Forms 2.0 Object Library」に
チェックを入れて、[OK]ボタンをクリックする。
「参照可能なライブラリ ファイル」のリストにない場合は、
[参照設定]ダイアログボックスで[参照]ボタンをクリックして「C:\Windows\system32\FM20.DLL」を選択する。
5.下記URLを参考にして、デジタル証明書を発行・設定する
http://d.hatena.ne.jp/koroharo/20100805/1280993754

これで、Outlook終了時にマクロが自動実行されるはずです。

マクロを使えば、Outlookを閉じる直前にクリップボードを
無条件にクリアすることができます。

ただし、マクロを登録する手順は、やや煩雑です。

以下のソースコードを下記手順でマクロとして登録してください。

Private Sub Application_Quit()
Dim MyData As New DataObject
MyData.SetText ""
MyData.PutInClipboard
End Sub

[手順]
1.メニューバーから[ツール]→[マクロ]→[Visual Basic Editor]を選択する
2.表示されたウィンドウのうち、左端の「プロジェクト」内の
「Project1」の左の+を...続きを読む

Qワードに貼り付けるクリップボード書式を解除できる?

ワードを原稿用紙として使っています。
ウェブ上の引用文をコピー&ペーストしようと思うと、ときどき、そのホームページの書式がくっついてきてしまいます。
例えばフォントサイズや色などです。

私は、そういう状態の時は、短い文ならGoogleのフォームに貼り付けてからコピーしたり、長い文章たと、書式が貼り付かないエディターソフトに貼り付けて切り取ったりして二度手間をかけています。

そもそも二度手間をかけるよりは、クリップボードに貼り付けるときに書式を拾ってこなければいいと思った訳です。

そういう設定はできるんでしょうか?

よろしくお願い致します。

Aベストアンサー

(1)ホーム→貼り付け→形式を選択して貼り付け→テキストを選んでOKをクリックしてみて下さい。

(2)常にその設定をする場合は、WORD2007の左上のofficeボタンをクリックして現われメニューで右下のWordのオプションで、詳細設定の中の、「切り取り、コピー、貼り付け」の中の他のプログラムからの貼り付けで、テキストのみ保持を選んでみて下さい。

ただし、この設定を忘れると、元に戻すのは面倒ですので、できれば、貼り付けるときに表示される小さなアイコン(貼り付けのオプション)でテキストのみ保持を選ぶことをお勧めします。

QVBAマクロ クリップボードから文字列を抜き出す

マクロ・VBA初心者です。

マクロ・VBAを使って、下記の作業を実現することはできますか?
(WinXP SP3/Office2007)

現状:
あるアプリの画面に表示されている文字列を一つ一つコピペして、
メールのテンプレートに張り付けて送信している
同じような作業を一日に何度も行うので、非常に時間と手間がかかる


希望:
コピペ一発でメール送信できる状態にしたい


詳細:
1 クリップボード上にある複数の文字列から必要な部分だけを抜き出す
2 抜き出した文字列を任意の場所に貼り付け

例:
【コピペした文字列】

Notepadに貼り付けるとこのような情報がコピペされています。

Date 5/27/11 Time 16:30
Name SAMPLEA SECURITIES CO., LTD. Contact Sample Taro
Address 1-2-3 CHUO CHUO-KU Phone 81-3-1234-5678
SAMPLE BLDG.
City TOKYO StTK Zp1234567
Country J Japan Floor:1F Dept:TEST



【抜き出したい文字列】
日時に対応する部分
氏名に対応する部分
会社名に対応する部分
住所に対応する部分
階数に対応する部分
部署に対応する部分
連絡先に対応する部分


【抜き出した文字列を対応する箇所に張り付ける】
※最終的には下記の内容をメールで送信したい。

日時:
氏名:
会社名:
住所:
階数:
部署:
連絡先:


どのようにしたら良いか手順を追って説明頂けると大変助かります。
どうぞ宜しくお願いします。

マクロ・VBA初心者です。

マクロ・VBAを使って、下記の作業を実現することはできますか?
(WinXP SP3/Office2007)

現状:
あるアプリの画面に表示されている文字列を一つ一つコピペして、
メールのテンプレートに張り付けて送信している
同じような作業を一日に何度も行うので、非常に時間と手間がかかる


希望:
コピペ一発でメール送信できる状態にしたい


詳細:
1 クリップボード上にある複数の文字列から必要な部分だけを抜き出す
2 抜き出した文字列を任意の場所に貼り付け

例:
【コピペした文...続きを読む

Aベストアンサー

作成例1:
下記のような手順でダイレクトに「丸ごと」を取得できます。
http://officetanaka.net/excel/vba/tips/tips20.htm

取得したら,あとは文字列操作を頑張って必要なデータを切り出していく手順になります。


作成例2:
で。実際にはクリップボードからわざわざ変数に受けるより
1.セルにそのまま貼り付ける
2.worksheet_changeイベントで各行のデータを順繰り自動処理させる
3.上述で検討した文字列操作の処理により,必要なデータを切り出して「所定のセル」に書き出していく
という段取りの方が,簡単なマクロで作成できます。

worksheet_changeイベントについて聞いたこともありませんという事なら
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html
などで勉強してみてください。



いずれの作成例にしても,今回のお仕事でコアになるのは「所定の文字列を見つけて切り出していく」手順です。
アイデアは様々考えつくと思いますので,どれでも思いついた方法でまずチャレンジしてみてください。
その上で困ってしまったときは,「こういうアプローチを試みたいと思ったんだけどここが判らなくて/実際にこうやってみたらこういう具合にうまく行かない結果になってしまい,行き詰まりました」の部分を明確にして,改めてスポットでご質問を投稿なさってみてください。

作成例1:
下記のような手順でダイレクトに「丸ごと」を取得できます。
http://officetanaka.net/excel/vba/tips/tips20.htm

取得したら,あとは文字列操作を頑張って必要なデータを切り出していく手順になります。


作成例2:
で。実際にはクリップボードからわざわざ変数に受けるより
1.セルにそのまま貼り付ける
2.worksheet_changeイベントで各行のデータを順繰り自動処理させる
3.上述で検討した文字列操作の処理により,必要なデータを切り出して「所定のセル」に書き出していく
という段取りの方...続きを読む

QエクセルVBAでセル範囲のデータをクリップボードに

セル範囲のデータをテキストとしてクリップボードに取り込みたいのです。

http://oshiete.goo.ne.jp/qa/5650002.html#16327676 の回答ANo2を見て

Sub test01()
Dim myData As DataObject
Dim myCb As Variant
Dim x
x = "TESTデータです。"
Set myData = New DataObject
myData.SetText x
myCb = myData.GetText
myData.PutInClipboard
End Sub

は出来ました。
そこで、セル範囲A1:B3をクリップボードに貼ろうといろいろやってみました。
一応、下記でできましたが、実際にはもっと広い範囲を取り込みたいので、もっと簡単な方法はないでしょうか?

Sub Clip()
Dim myStr As String
Dim myData As DataObject
Dim myCb As Variant
Set myData = New DataObject
With Sheets(1)
myStr = .Range("A1").Value & ":" & .Range("B1").Value & _
vbNewLine & .Range("A2").Value & ":" & .Range("B2").Value & _
vbNewLine & .Range("A3").Value & ":" & .Range("B3").Value
End With
myData.SetText myStr ', 1
myCb = myData.GetText

If MsgBox("データ" & vbNewLine & myCb & " をクリップボードに送りますか? ", vbYesNo + vbQuestion, "確認") = vbNo Then
Exit Sub
End If
myData.PutInClipboard
End Sub

セル範囲のデータをテキストとしてクリップボードに取り込みたいのです。

http://oshiete.goo.ne.jp/qa/5650002.html#16327676 の回答ANo2を見て

Sub test01()
Dim myData As DataObject
Dim myCb As Variant
Dim x
x = "TESTデータです。"
Set myData = New DataObject
myData.SetText x
myCb = myData.GetText
myData.PutInClipboard
End Sub

は出来ました。
そこで、セル範囲A1:B3をクリップボードに貼ろうといろいろやってみました。
一応、下記でできましたが、実際には...続きを読む

Aベストアンサー

横いりすみません。

必要範囲をCoryしたら、
DataObjectのGetFromClipboardメソッドを使ってクリップボードデータを取得します。
そこからさらにDataObjectのGetTextメソッドを使うとテキスト文字列だけ取り出せます。
その後、DataObjectをClearして
あらためて取り出したテキスト文字列をSetTextすれば良いです。
各メソッドについては、DataObjectのヘルプを見て下さい。

ただし、OutlookならCtrl+VまでVBAでやれば良い気がしますが。
http://outlooklab.wordpress.com/
この辺りを参考にしてみると良いかと。
Sub try()
  Const olFolderInbox As Long = 6
  Const olMailItem As Long = 0
  Dim obj As Object
  Dim ins As Object
  Dim m  As Object
  Dim tmp As String

  If TypeName(Selection) <> "Range" Then Exit Sub

  Selection.Copy
  With New DataObject
    .GetFromClipboard
    tmp = .GetText
    .Clear
  End With
  Application.CutCopyMode = False

  On Error Resume Next
  Set obj = GetObject(, "Outlook.Application")
  On Error GoTo 0
  If obj Is Nothing Then
    Set obj = CreateObject("Outlook.Application")
    obj.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Display
  End If

  For Each ins In obj.Inspectors
    With ins.CurrentItem
      If .MessageClass = "IPM.Note" Then
        If Not .Sent Then
          Exit For
        End If
      End If
    End With
  Next

  If ins Is Nothing Then
    Set m = obj.CreateItem(olMailItem)
  Else
    Set m = ins.CurrentItem
    Set ins = Nothing
  End If

  m.body = tmp
  m.Display

  Set m = Nothing
  Set obj = Nothing
End Sub

横いりすみません。

必要範囲をCoryしたら、
DataObjectのGetFromClipboardメソッドを使ってクリップボードデータを取得します。
そこからさらにDataObjectのGetTextメソッドを使うとテキスト文字列だけ取り出せます。
その後、DataObjectをClearして
あらためて取り出したテキスト文字列をSetTextすれば良いです。
各メソッドについては、DataObjectのヘルプを見て下さい。

ただし、OutlookならCtrl+VまでVBAでやれば良い気がしますが。
http://outlooklab.wordpress.com/
この辺りを参考にしてみると良いかと...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報