Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6170 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼りん さん：

アドバイス！ありがとうございました。
おかげさまで、やりたいことが見えてきました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6170 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free