Excel2000を利用しているのですけども先日保護したシートに図を挿入する方法をこちらで教えて頂きました。ありがとうございます。
今回は、その挿入した図をセルの中央に配置する方法をご教授お願したいのですが、よろしくお願いいたします。セルの書式設定で中央にしてもできませんでした。セルを保護しているからでしょうか?それとも全く検討違いの操作をしているのでしょうか。
下記マクロにその操作を追加する場合のマクロも教えて頂ければ大変助かります。
ActiveSheet.Unprotect
Application.Dialogs(xlDialogInsertPicture).Show
ActiveSheet.Protect
以上宜しく御願い致します。
No.3ベストアンサー
- 回答日時:
どこで、どのようなエラーが出たのでしょうか?
1.("Picture 1")と("A1")の部分は利用しているExcelの状態に合わせて変更する必要があります。
Set shp図 = ActiveSheet.Shapes("Picture 1")でエラーの場合。
Picture 1の名称が違っている可能性が高いです。
マクロの記録で対象の図を移動してみてください。
マクロに図の名称が記録されますので、それを利用する必要があります。
2."位置移動のエラー"
図の大きさよりA1セルの大きさが小さいです。
入りきらないのでエラーです。A1セルを大きくするか、別のセルに変更してください。
3.いきなりエラーとなる。
Option Explicitを指定していませんか?
No.2
- 回答日時:
こんな感じでどうでしょうか?
セルの中央に図が移動するかと思います。
図よりもセルが小さいと中央へ移動のしようがないのでエラーです。
Sub test()
’図の位置取得
Set shp図 = ActiveSheet.Shapes("Picture 1")
sng図Top = shp図.Top
sng図Left = shp図.Left
sng図Wid = shp図.Width
sng図Hight = shp図.Height
’セルの位置取得
Set rngセル = Range("A1")
sngセルTop = rngセル.Top
sngセルLeft = rngセル.Left
sngセルWid = rngセル.Width
sngセルHight = rngセル.Height
'横の位置を決める。
横位置 = ((sngセルWid - sng図Wid) / 2) + sngセルLeft
'縦の位置を決める。
縦位置 = ((sngセルHight - sng図Hight) / 2) + sngセルTop
'図の位置を移動
If 横位置 > 0 And 縦位置 > 0 Then
shp図.Left = 横位置
shp図.Top = 縦位置
Else
MsgBox "位置移動のエラー"
End If
End Sub
この回答への補足
こんばんは。
マクロに関しては、まだ勉強不足で無知に近いです。
上記内容をコピーしてマクロの部分に貼り付ければ使えるのでしょうか?
先ほど試してみたのですが、エラーが出てしまいました。
宜しくご教授くださいませ。
No.1
- 回答日時:
見当違いの操作ですね。
セルの中に図が挿入されているのではなく、図はシートの上に置いてあるという感じです。
そして、実施したいのは
・表示範囲の中央に図を配置したい
・印刷範囲の中央に図を配置したい
・大きなセルの中央に図を配置したい
どれでしょうか。
この回答への補足
こんばんは。
説明不足で申し訳ありません。
保護したシートの中に保護を外した”大きなセルがあります”
その大きなセルの中央に挿入→図→ファイルから図を挿入したいのです。
昨日教えて頂いたマクロに書きくわえて使用したいと思っておりますので宜しくご教授お願いします。また、勉強不足なもんでマクロに関しては全く無知なものですから宜しくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) エクセルの数式について教えてください。 7 2023/06/18 10:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excelで、あるセルだけ入力させたい、オートフィルターも使わせたい際のシートの保護 2 2023/02/23 15:14
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
対象セル内(複数)が埋まった...
-
(Excel)数字記入セルの数値の後...
-
【エクセル】IF関数 Aまたは...
-
エクセルで指定したセルのどれ...
-
セルをクリック⇒そのセルに入力...
-
貼り付けで複数セルに貼り付けたい
-
エクセル 足して割る
-
【Excel】 セルの色での判断は...
-
Excelで数式内の文字色を一部だ...
-
エクセルのセルの枠を超えて文...
-
枠に収まらない文字を非表示に...
-
セルの高さ(行高)を求めるには?
-
エクセルの一つのセルに複数の...
-
エクセル オートフィルタで絞...
-
Excel 例A(1+9) のように番地の...
-
excelのCOUNTIF関数で、『範囲=...
-
セルの内容の条件に応じて図形...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
エクセルでオブジェクトを常に...
-
VBAで特定の文字が入力されたセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
Excelで数式内の文字色を一部だ...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
エクセル 足して割る
-
excelのCOUNTIF関数で、『範囲=...
-
EXCEL VBA セルに既に入...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
(Excel)数字記入セルの数値の後...
-
エクセルの一つのセルに複数の...
-
【Excel】 セルの色での判断は...
-
Excel2003 の『コメント』の編...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
複数のセルのいずれかに数字が...
-
枠に収まらない文字を非表示に...
-
excelの特定のセルの隣のセル指...
おすすめ情報