myRangeのプロフィール
- ベストアンサー数
- 339
- ベストアンサー率
- 71%
- お礼率
- 0%
I'm awfully fond of Cats.
- 登録日2009/04/27
- 都道府県鹿児島県
- エクセル/保護したシート上の埋め込みオブジェクト
エクセル2000です。 エクセルで作成した文書に、「挿入」→「オブジェクト」→「ファイルから」で、ワードのファイルをアイコンの形で「埋め込みオブジェクト」にしました。 通常であれば、このアイコンをダブルクリックしてワード文書を開けるはずですが、今般、事情によりエクセルはシート保護&ブック保護をしなければなりません。 そうすると、ワード文書のアイコンをダブルクリックしてもまったく反応しなくなってしまいます。 どうすれば保護されたワークシート上でワードを開けるでしょうか? VBAでも他の方法でもかまいません。 ご教示いただければ幸いです。
- ベストアンサー
- その他MS Office製品
- merlionXX
- 回答数5
- エクセル/保護したシート上の埋め込みオブジェクト
エクセル2000です。 エクセルで作成した文書に、「挿入」→「オブジェクト」→「ファイルから」で、ワードのファイルをアイコンの形で「埋め込みオブジェクト」にしました。 通常であれば、このアイコンをダブルクリックしてワード文書を開けるはずですが、今般、事情によりエクセルはシート保護&ブック保護をしなければなりません。 そうすると、ワード文書のアイコンをダブルクリックしてもまったく反応しなくなってしまいます。 どうすれば保護されたワークシート上でワードを開けるでしょうか? VBAでも他の方法でもかまいません。 ご教示いただければ幸いです。
- ベストアンサー
- その他MS Office製品
- merlionXX
- 回答数5
- AccessVBAで、二次元配列を動的に設定したい
以下のコードにあるattrという配列に、DB上のとあるコードと名前を設定したいと思います。 DB上のデータ量は可変なので、データを取得するごとに動的に配列attrの要素数を動的に増やしたいと思っています。 検索等で色々と調べながら以下のコードを書いてみたのですが、どうもうまく動きません。 ご教授願います。 --------------------------------------------------- Dim attr() As String [loop start] ReDim Preserve attr(i, 0) ReDim Preserve attr(i, 1) attr(i, 0) = コード attr(i, 1) = 名前 [loop end]
- ベストアンサー
- Visual Basic
- audrey1800
- 回答数1
- Excelでオブジェクト挿入
Excel2003でオブジェクトの挿入からPDFを選択してもアイコンがPDFになりません。 ファイルの関連付けはReader9になっていて、エクスプローラのアイコンはPDFになっています。 オブジェクトの挿入でPDFのアイコンにするにはどうしたらいいでしょうか?
- 締切済み
- その他MS Office製品
- yurielna
- 回答数6
- ExcelVBAにシートに名をつけて保存のさせたい
現在、VBA勉強中の初心者です。 自分なりに作成したVBAではうまく作動しません。 どなたか教えてください。 sheet1(受付簿)のデータをB3~U43までコピーして、名前をつけて新たに別シートに作成保存し、作成したシートのA1に、値と書式を貼り付けます。 そして作成したシートを、一番右側に作成したいのですが、エラーが発生します。 (エラー) 「実行時のエラー オブジェクトは、このプロパティまたはメソッドをサポートしていません」 が発生します。 下記のように、VBAを作成したのですが、どこが間違いなのかご指摘をお願いします。 Sub 別シートに名前をつけて保存() Dim title As String Dim msg As String Dim t As String title = " 別シートに名前をつけて保存する" msg = "名前を入力してください" t = InputBox(msg, title) Worksheets("受付簿").Range("B1:U43").Copy With Worksheets.Add .Name = t .Range("a1").Select .Range("a1").Paste .Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False .Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End With Application.CutCopyMode = False End Sub お忙しい中、申し訳ありませんが、どうぞよろしくお願いします。