DreamyCat の回答履歴

オフィスソフト「PowerPoint 2010」のファイルに、Word2010の数式エディタで作成した数式を挿入しました。 挿入した文字列をアニメーションで表示させたいです。挿入した数式にアニメーションの効果が適用されません。 仕様でしょうか？ よろしくお願いします。

パワポ2007で消えてもう一度開けた際に【ドキュメントの回復】で表示されたのにそこで開けず、同名のファイルをまた開けると５時前のデータでした。数分前の直前データ回復データはよみがえりますか？

サブフォームの高さをVBAで調整するには 顧客の基本情報が表示されてるフォーム1に、その顧客が購入した商品の履歴一覧が フォーム1の中のサブフォームに表示されるようになってます。 顧客が商品を20回購入した時の大きさ（高さ）にサブフォームをデザインビューで作成しました。 顧客が20回以下で商品を購入した場合、その高さにサブフォームを合わせたいんです。 VBAでサブフォームの高さを調整することは可能でしょうか？ 現在、1回しか購入履歴がない顧客も、20回購入履歴がある顧客と同じ高さのサブフォームで表示されてます。

データ入力シート「Hit Data] データ表示シート「User Sheet」 とあります。 データ表示シート「User Sheet」に「次へ」「前へ」「最初へ」「最後へ」とボタンをつくり、データ入力シート「Hit Data]から、都度データを呼び出せるようにするプログラムをとあるサイトを参考にして作成しましたが、エラーが出てしまいどうしてもうまくいきません。 どこに問題があるのか見ていただけないでしょうか？ '以下標準モジュールのプログラムです Public trg As Range Sub Saisyo() 　Set trg = Worksheets("Hit Data").Range("A3") 　Call Tenki End Sub Sub Saigo() 　Set trg = Worksheets("Hit Data").Range("A60000").End(xlUp) 　Call Tenki End Sub Sub Mae() 　If trg.Row >= 4 Then 　　Set trg = trg.Offset(-1, 0) 　　Call Tenki 　Else 　　MsgBox "これより前のレコードはありません" 　End If End Sub Sub Tsugi() 　If trg.Row < Worksheets("Hit Data").Range("A60000").End(xlUp).Row Then 　　Set trg = trg.Offset(1, 0) 　　Call Tenki 　Else 　　MsgBox "これより後ろのレコードはありません" 　End If End Sub Sub Tenki() 　Worksheets("User Sheet").Range("D9").Value = trg.Offset(0, 0) 　Worksheets("User Sheet").Range("D10").Value = trg.Offset(0, 1) 　Worksheets("User Sheet").Range("D11").Value = trg.Offset(0, 2) 　Worksheets("User Sheet").Range("D12").Value = trg.Offset(0, 3) End Sub '以下　User Sheet"のシートモジュールに記載されたプログラムです。 Private Sub Worksheet_Activate() Call Saisyo End Sub '表示されるエラーの内容 'saisyo・・・アプリケーション定義またはオブジェクト定義のエラーです。 'saigo・・・同上 'mae・・・オブジェクト変数またはWithブロック変数が設定されていません 'tugi・・・同上

　MicrosoftのPowerPointに慣れているかたや詳しいかたにおうかがいします。「2010」で教えていただければ幸いです。 　パワーポイントの強調アニメーションの中に、濃い文字を薄くする、「透過性」というものがあります。そこで質問なんですが・・・。 薄い文字を濃い文字にする、「透過性」の逆のようなものはありますか。 ぜひ、よろしくお願いします。

PowerPoint 2007 の編集/使用について、困っています。 最近、標準画面でスライドを編集中に、突然、そのスライドからスライドショーが実行されるようになってしまいました。編集中ですので、いろいろと作業をしている最中に勝手にスライドショーが実行されるようになってしまったのです。編集中のスライドからスライドショーが始まります。 スライドの切り替えタイミングや、スライド設定、画面切り替え方法なども設定しなおしたり、ソフトを修復してみましたが、全く改善せず、編集中に意思に反してスライドショーが実行されます。そのため、いちいち、スライドショーの終了をする必要があり、編集が滞り、とてもストレスがたまります。困っています。何か改善策を教えてくだされば幸いです。

ＥＸＣＥＬで文字を入力する際にセルに入力できる文字数を決めておき、それ以上の文字数の場合は下のセルに移動するＶＢＡは可能でしょうか。可能でしたら教えていただけますでしょうか。よろしくお願いいたします。

Excel2003で作成したマクロがExcel2010で使えません。 内容は任意のフォルダ内にある同じフォーマットの複数のファイルを1ファイルづつ開いては別の１つのファイルのシート毎にコピーしていくマクロなんですが、21個目のファイルを開こうとした際にループが止まってしまいます。 どなたか解決方法をご存知でしたらご教授願います。

タイトルの件、質問いたします。 powerpointのスライドの内容、画像、スライド自体を一切、コピーさせないように するにはどうすれば良いでしょうか？？ ちなみに、見る事はできるけども、コピーはできないようにする方法です。 （バージョン） 2002、２００３

よろしくお願いします WinXP SP3でEXCEL 2003を使用しています ブック名がtest.xls シートが("目次", "1", "2", "3", "4", "5") とあります ここでは仮に"5"までシートがありますが本来は変数であり、n + 1のように扱いたいです 以下のマクロで"目次"以外の全てのシートを選択しました ～～～～～ Sub Macro1() Dim i As Integer i = 2 Sheets(i).Select For i = i To 6 Sheets(i).Select False Next i End Sub ～～～～～ このマクロですとArrayを使わずとも、"目次"以外のシートを選択できますが For i = i To 6　の6を7以上にするとエラー終了します そこで以下の条件にてシートの選択を行いたいのですが方法がわからず困っております 1・シートの数が多くても"目次"以外のシートを全て選択したいです 2・iがシートの数を超えた場合はエラー終了せず、マクロを終了させたいです 3・Sheets(Array( "1", "2", "3", "4", "5")).Select のようなマクロは組みたくないです 大変恐縮ですが、教えていただけますでしょうか できればマクロをVBEにコピー＆ペーストするだけで実行できるような 状態にしていただきますと非常に幸いです 何卒、よろしくお願いいたします

ＰＯＷＥＲ　ＰＯＩＮＴ２００３からの乗り換えです。 大変使い辛く困っております、ご存じの方いらっしゃいましたら アドバイスお願いします。 フリーフォームで作成した任意の図を、頂点の編集で 修正した場合、黒い四角をつまむ（選択）と同時に白い四角が 表示されます。気にすることなく黒い四角を動かすと 白い四角が、邪魔をして思うような修正ができません。 どちらか言えば、図がグチャグチャになってしまいます。 ２００３版ではこんな使い辛くはありませんでした。 何か設定があるのでしょうか？ よろしくお願いします。

エクセル2010を使っていますが、下の添付画像にあるところのコントロールを頻繁に呼び出すとしたら、すごく時間がかかってしまうのですが・・・ クイックにアクセスする方法をご存知の方はいらっしゃいませんか？

「項目」とはなんですか？ グラフを作成するにあたって、「軸のオプション」を設定するときに、「最大項目」とか「項目」とかって言葉を目にして、その意味がわからなかったので、、

アクティブXコントロールのオブジェクトのプロパティーを手作業で変更するのではなくて、 マクロのコードで変更できればいいと思うのですが、コードの書き方がさっぱりわかりません。 私がやりたことは 下の画像にあるバーコードのコントロールのValueプロパティの値をVBAのコードで指定したい ということです。 一体、どんな書き方をすればいいんでしょうか？ できればズバリのコードをそのまま提示して欲しいです。

エクセル2010のマクロの話なのですが、 添付画像にある、オブジェクトの「Value」というプロパティーの値を変更するための文法がわかりません。 　PsyBcLbll.Value=13342353654 という感じで書いているんですが, たしか、 「変数が宣言されていない」 とかいうエラーが出てうまくいきませんでした。 一体、どう書けばいいんでしょうか？

はじめまして。 EXCEL２００７を使っているVBA初心者です。 現在セル入力した内容からPOPをまとめて印刷するワークシートを作成しています。 ワードアートのフォントをVBAで変更させたいのですが上手くいきません・・・ 英数字でセル入力したときのみ、フォント変更されているようですが、全角文字をセルに入力したときワードアートに元々設定されているフォントで表示されてしまいます。 色々試したのですが、駄目でした（完璧に挫折です）　 以下処理のイメージです。 セル　A１に　”フォント変更したい”　を入力。　 セルA1のフォントを”HGP創英角ゴシックUB”に変更 マクロ実行　→　ワードアートに　「フォント変更したい」　の文字を　HGP創英角ゴシックUBのフォントで表示　　させたいのですが・・・ Sheets(1).Shapes("WordArt1").Select FT = Sheets("LIST").Cells(１,１).Font.Name 'フォントネ－ム取り出し Selection.Characters.Font.Name = FT 'フォントネームをワードアートにセット このような記述です。 ご教授いただけると大変助かります。どうかよろしくお願いいたします。

こんにちは。 Word2010やWord2007において、開いている文書の絶対パスが、一目でわかる方法を探しています。 例えば、タイトルバーに、パスを表示したり、ヘッダーやフッターに表示したりできたらいいなと思っています。 色々試してみたのですが、上手く行かなかったので、何かいい方法を知っておられる方がいらっしゃれば、是非アドバイスを頂きたいと思います。 では、よろしくお願い致します。、

２００３以前のバージョンで作られたＥＸＣELファイルでオプションボタンが下記のように使われています。 ○選択値１ ○選択値２ （今までは、このファイルをＥｘｃｅｌ２００３で使用していました。） 私が作ったものではないので、はっきりとは言えないのですが、○選択値１を選ぶと、リンク先の値が”２”となり、 ○選択値２を選ぶとリンク先の値は”１”となるところから、多分○選択値２を先に作成したのかなと思います。 ところがこのファイルを、ＥＸＣＥＬ２０１０の入っているＰＣにコピーして、起動して見ると、 （内容はまったく変えていません） ○選択値１を選ぶとリンク先の値が”１”となり、○選択値２を選ぶとリンク先の値が”２”となってしまい、 まるで逆の結果となってしまいました。 色々とネットで検索して見るものの、全く分かりません。 どなたか対処法をご存じないでしょうか？ よろしくお願いいたします。

VB初心者です。 さっそくですが、VBで、msecのデータを扱うのに”GetTickCount”を使っていますが、精度はともかくまれにありえない大きな数値が帰ってきます。プログラムと実行結果は下記の通りですが、何が原因でしょうか？ OSは、WindowsXPです。 アドバイスよろしくお願いします。 <プログラム> Dim BeforeTime As Long Dim NowTime As Long Dim n As Integer 'システムを立ち上げてからの経過時間(単位：ミリ秒)を取得 Private Declare Function GetTickCount Lib "Kernel32" () As Long '実行処理 Private Sub buttonRun_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles buttonRun.Click For n = 1 To 20 TimeCheck() Next End Sub 'データ取得&表示 Private Sub TimeCheck() BeforeTime = GetTickCount TextBox1.Text = TextBox1.Text & n & " : " & BeforeTime & " " & BeforeTime - NowTime & ControlChars.CrLf NowTime = BeforeTime End Sub <実行結果> No 現在の取得値 　→ 前回との差 ------------------------------------ 0 : 225661890149886 → 初回取得値 1 : 225661890149886 → 0 2 : 225661890149886 → 0 3 : 225661890149886 → 0 4 : 225661890149886 → 0 5 : 225661890149886 → 0 6 : 225661890149886 → 0 7 : 225661890149886 → 0 8 : 225661890149886 → 0 9 : 225661890149886 → 0 10 : 225661890149886 → 0 11 : 225666185117197 → 4294967311 12 : 225666185117197 → 0 13 : 225666185117197 → 0 14 : 225666185117197 → 0 15 : 225666185117197 → 0 16 : 225666185117197 → 0 17 : 225666185117197 → 0 18 : 225666185117197 → 0 19 : 225666185117197 → 0 20 : 225666185117213 → 16 以上

VBA初心者です。宜しくお願いします。 コマンドボタンにマクロを登録しているのですが、 急に使えなくなりました。 原因はウィンドウの固定をしてからのようなのですが、 解除後も状況はかわりません。 コマンドボタンの編集はできるがクリックできない感じです。 sheetを保護しても処理を実行できない？みたいです。 sheet1にコマンドボタンを配置し、 sheet2,sheet3に処理結果をだすプログラムです。 Sheetの保護やウィンドウの固定をしてもコマンドボタンを使う方法はありませんでしょうか？ また、ユーザーフォームのテキストボックスに、 今日の日付を表示したいのですが、西暦を省き、 月/日　または　月/日/曜日　のように表示できる方法はないでしょうか？ よろしくお願いいたします。