DreamyCat の回答履歴

パワーポイントで螺旋を縦方向に描き、それをくるくる回して、上昇感をアピールしたいのですが、どなたか良い方法をご存じありませんか?これについては、ヤフー検索すると3，4年前に質疑があるのですが、結果的に答えがなされていないようです。また、同心円状の一点を周回させる方法も知りたいのですが、よろしくお願いします。

ふつうのスクロールが、画面スクロールになるマクロをおしえてください。 サンプルコードは、ActiveWindow.SmallScroll Down:=1 を実行したときに、 ActiveWindow.LargeScroll Down:=1を実行するマクロのことです。 よろしくお願いしますm--m

エクセルシートのダブルクリック　イベントで　 Call マウス左クリック　 とします。 ret = SetCursorPos(929, 12)　カーソル移動と SendKeys " 12345" は動くのですが mouse_event 2, 0, 0, 0, 0 '左ダウン mouse_event 4, 0, 0, 0, 0 '左アップ この二つが　動いてくれません。 遅延させるタイマー入れたり、するのですが同じです。 MODULE　の中に入れたり、シートの中に入れても　同じです。 どこが、問題なのでしょうか よろしくどうぞ Sub タイミング() stime = gettickcount Do While gettickcount - stime < 1000 DoEvents Loop Sub マウス左クリック() ret = SetCursorPos(929, 12) mouse_event 2, 0, 0, 0, 0 '左ダウン mouse_event 4, 0, 0, 0, 0 '左アップ ret = SetCursorPos(309, 282) SendKeys " 12345" ret = SetCursorPos(309, 320) SendKeys " 12345" SendKeys " {ENTER}" SendKeys " %(RY)", True Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Type POINTAPI X As Long Y As Long End Type　　’位置取得 '------------------------------------------------------------------ Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As _ Long, ByValcButtons As Long, ByVal dwExtraInfo As Long) Public Declare Function SetCursorPos Lib "user32" _ (ByVal X As Long, ByVal Y As Long) As Long

エクセルシートのダブルクリック　イベントで　 Call マウス左クリック　 とします。 ret = SetCursorPos(929, 12)　カーソル移動と SendKeys " 12345" は動くのですが mouse_event 2, 0, 0, 0, 0 '左ダウン mouse_event 4, 0, 0, 0, 0 '左アップ この二つが　動いてくれません。 遅延させるタイマー入れたり、するのですが同じです。 MODULE　の中に入れたり、シートの中に入れても　同じです。 どこが、問題なのでしょうか よろしくどうぞ Sub タイミング() stime = gettickcount Do While gettickcount - stime < 1000 DoEvents Loop Sub マウス左クリック() ret = SetCursorPos(929, 12) mouse_event 2, 0, 0, 0, 0 '左ダウン mouse_event 4, 0, 0, 0, 0 '左アップ ret = SetCursorPos(309, 282) SendKeys " 12345" ret = SetCursorPos(309, 320) SendKeys " 12345" SendKeys " {ENTER}" SendKeys " %(RY)", True Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Type POINTAPI X As Long Y As Long End Type　　’位置取得 '------------------------------------------------------------------ Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As _ Long, ByValcButtons As Long, ByVal dwExtraInfo As Long) Public Declare Function SetCursorPos Lib "user32" _ (ByVal X As Long, ByVal Y As Long) As Long

エクセル2002を使用しています。 エクセルで罫線を入れ、表を作成しました。 印刷プレビューでは、真っ直ぐに引かれている正常な縦線が表示されているのに、プリンターで印刷すると、 縦線だけが、楕円だったり、涙のような形だったり、とにかく丸がセルごとに付いて印刷されます。 チェーンのような感じです。 丸が付かない正常な縦線にするには、どうしたらいいのでしょうか？

今，エクセルのユーザーフォームでグラフを表示させたいのですが，うまくいきません． ユーザーフォームを作成しているブックとは違うブックのシート1にデータ，このデータを使用してsheet2にグラフを作成しています．このグラフを違うブックで作成しているユーザーフォームで表示させたいのです． 今，組んでいるマクロは以下のようになっています． Sub point1() openfilename = "1F-1.xls" folderpath = "G:\関電営業所\相生営業所\20110928 関電相生営業所収集データ\おんとり\text\Excel\" Ofilenamepath = folderpath & openfilename Workbooks(openfilename).Worksheets(2).ChartObjects(1).Chart.Export ThisWorkbook.Path & "\Chart1.gif" UserForm1.Image1.Picture = LoadPicture(Ofilenamepath & "\Chart1.gif") UserForm1.Show End Sub 上から5行目のところでエラーが出てしまいます． エラーは「オブジェクトが不正です」とでます． どなたか解決方法を教えてください。

エクセルＶＢＡでユーザーフォーム上からセルを選択したいのですが、可能でしょうか？ 当初はユーザフォーム上のボタンにRange("a1").selectを入れておき、ボタンをクリックするとＡ１セルが選択状態になり、キーボードで入力できると思ったのですが、駄目でしたorz とまぁユーザーフォーム上のボタンを押すとキーボードでセルに直接入力ができる状態にしたいです。 アドバイスの程よろしくお願いします！

Powerpointで作成された添付ファイルが読めません Powerpointで作成されたメールが海外から送られてきました。 Zip形式で圧縮されていたので、解凍し、フォルダを開いたところ、一つ一つのスライドらしきファイルが あったのですが、拡張子はすべてXML。 開こうとするとタグが表示されてしまい、PPTでは開けません。 私のＰＣはXP、Powerpointは2007です。 何がいけないのでしょうか。 画像添付します

パワーポイント初心者です。 パワーポイントのスライドでオートシェイプやテキストボックスで作成した図を、キチンと縦横そろえたいです。 「図形描画」の「図形の調整」の「配置／整列」又は「位置合わせ」でできるようですが、メニューがグレーのままで使えません。 ちゃんと図はシフトキーで複数選択しているのに・・・。なぜでしょうか？

教えてください。 Excel2010で計算式の入ったセルを他セルへ『リンク貼り付け』した場合 以下の2パターンだと(2)しか貼り付けできません。 (1)貼り付けオプション/リンク貼り付け（N)・・・・リンク貼り付けのアイコン (2)形式を選択して貼り付け/リンク貼り付け（L)・・・・ダイアログボックス左下メニュー (1)の場合、エラー表示されてしまいます（データを貼り付けできません） 理由ご存知の方がいたらお教えください。 自分で調べてみたのですが、原因がわからず気になっています。

Excel 2010 の WorkSheet で使用している範囲を知る方法を教えてください。 使用している範囲にブランク行やブランク列があった場合はどうなるのでしょうか?

Windows7を使っており、PowerPoint2000を使っています。（古くてすみません・・） 病院の待合室の掲示板を作っているのですが、 １診、２診、３診で、それぞれ何番を診察中なのか 患者さんに見えるように、診察室名と診察中番号を表示します。 それらをエクセルで作成した後、パワーポイントに 形式を選択して貼付け（リンクはしない）して、 スライドショーで患者さんにお見せしています。 番号を更新する際には、パワーポイントに埋め込まれた Excel表をダブルクリックして数値を変更すると、スライドショーにも 変更した番号が表示される・・・という仕組みで作成しました。 ところが数値を入力してEnterキーを押すと、せっかく 画面サイズに合わせて作ったエクセルの行が増えて 表示が変わってしまったり、と不安定です。 エクセルとリンクさせて、エクセルだけ数値を変更するようにすれば 表示形式がおかしくならないと思うのですが、リンクさせても スライドショーを表示しっぱなしにしていると、更新がかかりません。 スライドショーを表示しっぱなしの状態で、リンクさせているエクセルの 変更を反映させる事はできないでしょうか？ また、エクセル・パワーポイント程度のソフトで何か良い知恵があれば 教えて下さい。

ワード２０１０で、余白部分にテキストボックスを作成すると、自動的にヘッダー扱いになってしまい、全頁にテキストボックスが作成されてしまいます。これを解除する方法をどなたか教えていただけないでしょうか？

2003→2007 の非対応オブジェクト？ Excel2003では使えていた Filesearch、textboxesなどが2007では使えなくなっていました。 2007で、2003のVBAマクロを動かすと 多数のエラーが出ます。 そのほとんどが 2007では無くなっていて動作しない　といった現象でした。 そこで、2003→2007の 無くなっている機能を知りたいです。 一覧などが載っているサイト、または書籍等ご存知でしたら教えていただきたいです。 散々ググりましたが、見つからずじまいでした。 よろしくお願いします。

実行中の Workbook のアドレスを取得できるのでしょうか? Excel 2010 を使用しています。 方法が有れば、是非ご教示ください。

　マクロの設定の「警告を表示してすべてのマクロを無効にする」と言う メッセージを選択しているのですが、 マクロを組んだExcelを開いても警告のメッセージが表示されなくなりました。 困っています。 どなたか教えてください。 お願いいたします。　

パワーポイントのスライドマスタの編集を防止したいのですが、 何か良い方法は無いでしょうか。 ＶＢＡを用いた方法でも構いませんので、良い方法がありましたら 教えて下さい。

こんばんは。 マイクロソフトExcel2010に関しての質問です。 シートに体重を測って記載しています。そのデータを元に、別シートでグラフを作成しています。毎日の体重の計測のために、データが見にくくなり、月毎にグループ化をしました。そうしたら、別シートのグラフの横軸の『日』が短くなってしまいました。 具体的には、6～9月まで毎日シートに体重を記載していて、グラフの横軸にはキチンと6～9月の日付が載っていたのですが、体重を記載しているシートの6月をグループ化すると、グラフには6月の日付がなくなってしまうということです。 どなたか、解決策をご存じないでしょうか？ よろしくお願いいたします。

Excell VBA で 1/10 秒単位で経過時間を表示する方法を教えてください。 現在は次の書式を使っているので、１秒単位でしか表示されません。 MsgBox "所要時間 ： " & Format(Now - StartTime, "hh:mm:ss") StartTime　は計測開始時刻です。

●質問の主旨 A列の入力を欠いた最終行の特定セルの取得及び転記について ご教示ください。 ●質問の詳細 下記の要領で現金出納帳を作成しています。 １． 項目は以下の通りです。 　A 　　　　B 　　　　C 　　　　　D 　　E 　　　　　　　F 日付 摘要１ 摘要２ 収入金額　　支出金額 残高金額 ２． 下の行に向かって１．の具体的内容を入力していきます。 ３． 同じ日に複数の項目がある場合、その日の先頭項目のみA列に 日付を入力し、２番目の項目には、日付を入力しない。 ４． 当月の一番最後に入力されている項目のF列の残高金額をもって、 次月の残高（繰越残高）とする ５． 当月の残高（繰越残高）は、雛型シートを用意し、 そのシートのF3セルに入力する。 ※ 一日に必ず複数の項目を入力するため、最終行には 日付の入力を欠いていることがほとんどです。私案のコードでは 「最終日」の１番目の残高は拾えても、「最終日」の最終行を 拾うことができません。コードをどのように書き換えたらよろしい でしょうか？ ●私案のコード Sub 繰越_Click() Dim i As Integer '既存のシート数を取得 i = ThisWorkbook.Worksheets.Count '最終シートをコピーして後ろに挿入 Worksheets(i).Copy after:=Worksheets(i) '月リストからシート名を取得してシート名変更 Worksheets(i + 1).Name = Sheets("月リスト").Cells(i + 1, 1).Value '新しく作成したワークシートについて以下の処理を行う With ActiveWorksheets '当月の残高を次月に繰り越す （残高が記入されている最終行,F列の値を次月シートのF3セルに代入する） Range("F3") = Worksheets(i).Range("A1045876").End(xlUp).Offset(0, 5).Value End With End Sub 使用機種はWindouws Vista Excel2007です。当方はVBA初心者です。