Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6168 / 13644 ツリー ←次へ | 前へ→

【46797】図の名前を変更 ニッキ 07/2/15(木) 15:55 質問[未読]
【46802】Re:図の名前を変更 Kein 07/2/15(木) 16:44 発言[未読]
【46804】Re:図の名前を変更 ニッキ 07/2/15(木) 17:44 発言[未読]
【46807】Re:図の名前を変更 りん 07/2/15(木) 19:02 発言[未読]
【46822】Re:図の名前を変更 ニッキ 07/2/16(金) 12:53 お礼[未読]

【46797】図の名前を変更
質問  ニッキ  - 07/2/15(木) 15:55 -

引用なし
パスワード
   初心者ですみません。
下記のように書くと名前が「Picture1」からになってしまい2,3,4、・・・・
と続きます。
これを、「Picture100」から・・・・・にしたいのですが、どのようにしたら
良いのでしょうか?
宜しくご指導お願い致します。


Private Sub CommandButton1_Click()
If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect
End If

  ActiveSheet.Pictures.Insert("D:\印.gif") _
    .Select
  Selection.ShapeRange.ScaleWidth 0.3, msoFalse, msoScaleFromTopLeft
  Selection.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

【46802】Re:図の名前を変更
発言  Kein  - 07/2/15(木) 16:44 -

引用なし
パスワード
   >これを、「Picture100」から
カウンタ変数を用意するとか、値を特定のセルに保存しておき、それを使って
Nameプロパティの設定をすれば出来ますが、それ以前にそのコードでは、
いつも同じ一つの画像ファイルを挿入するだけなんで、なんか存在価値が
あるのか無いのかよく分かりませんが・・。

【46804】Re:図の名前を変更
発言  ニッキ  - 07/2/15(木) 17:44 -

引用なし
パスワード
   ▼Kein さん:

おっしゃる通りですが、票に印を押して又次の人が印を押すといった使い方で
削除する際に最後の押印を消すようにしたかったのです。

【46807】Re:図の名前を変更
発言  りん E-MAIL  - 07/2/15(木) 19:02 -

引用なし
パスワード
   ニッキ さん、こんばんわ。

>おっしゃる通りですが、票に印を押して又次の人が印を押すといった使い方で
>削除する際に最後の押印を消すようにしたかったのです。
最後に追加された図はこれで取得できませんか?
Sub test()
  With Application.ActiveSheet.Pictures
   MsgBox .Item(.Count).Name '名前を表示
  End With
End Sub

ファイルから図を挿入したときに、どこかへリストとして追加していく方が確実とは思いますが。

【46822】Re:図の名前を変更
お礼  ニッキ  - 07/2/16(金) 12:53 -

引用なし
パスワード
   ▼りん さん:

アドバイス!ありがとうございました。
おかげさまで、やりたいことが見えてきました。

6168 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free