PDA

Vollständige Version anzeigen : ungesperrtes Bild einfügen


xerxses
03.04.2012, 17:59
mit hilfe diese Makros möchte ich ein Bild einfügen. den Code hab ich glaub ich hier aus dem Forum..
gibt es die Möglichkeit dass das Bild in ein gesperrtes Blatt ungesperrt bleibt, bzw ungesperrt eingefügt wird, so dass man es verschieben, vergrößern usw. kann.
es wäre auch hilfreich zu wissen wie man das bild "zentriert" in der definierten zelle einfügt.


Sub grafikeinfügen()
Range("a1").Select

On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 15
Selection.ShapeRange.Width = 40
Selection.ShapeRange.Rotation = 0#

End Sub

Hajo_Zi
08.04.2012, 07:26
benutze doch den Makrorecorder zu 1
ich vermute
.Locked = msoFalse

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm" onclick="window.open(this.href);return false"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

josef e
08.04.2012, 07:50
<div style="width:98%; margin-left:5px; margin-right:15px; text-align:justify;">
Hallo ?,

das Bearbeiten der Grafiken musst du beim Blattschutz einstelllen (Objekte bearbeiten).

<div style="background-color:#F5F5F5; border-width:2px; border-style: groove; border-color:#ff9966; padding:4px;"><nobr><span style="font-family:Courier New,Arial; font-size:8pt ;" ><b><span style="color:#0000FF"; >Sub</span> grafikeinf&uuml;gen()</b><br />&nbsp;&nbsp;<span style="color:#0000FF"; >Dim</span> objShp <span style="color:#0000FF"; >As</span> Object, rng <span style="color:#0000FF"; >As</span> Range<br />&nbsp;&nbsp;<span style="color:#0000FF"; >Dim</span> strFile <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >String</span><br />&nbsp;&nbsp;<br />&nbsp;&nbsp;strFile = Application.GetOpenFilename(<span style="color:#808080"; >"Grafik Dateien (*.gif; *.jpg; *.png),"</span> & _<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#808080"; >"*.gif; *.jpg; *.png"</span>)<br />&nbsp;&nbsp;<span style="color:#0000FF"; >If</span> strFile &lt;&gt; CStr(<span style="color:#0000FF"; >False</span>) <span style="color:#0000FF"; >Then</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#0000FF"; >Set</span> rng = Range(<span style="color:#808080"; >"E5"</span>) <span style="color:#008000"; >'Zelle in die eingef&uuml;gt wird</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#0000FF"; >Set</span> objShp = ActiveSheet.Pictures.Insert(strFile)<br />&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#0000FF"; >With</span> objShp<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.ShapeRange.LockAspectRatio = msoTrue<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Height = 15<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Width = 40<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Top = rng.Top - (.Height - rng.Height) / 2<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Left = rng.Left - (.Width - rng.Width) / 2<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >With</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;<span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >If</span><br />&nbsp;&nbsp;<br />&nbsp;&nbsp;<span style="color:#0000FF"; >Set</span> objShp = <span style="color:#0000FF"; >Nothing</span><br /><b><span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >Sub</span></b><br /><br /></span></nobr></div>


</div>

<div style="width:100px; text-align:center; color:white; font-style:italic; font-size:0.8em; font-family:Tahoma; background-color:royalblue;margin-left:5px; margin-top:15px; padding:4px; border:3px double darkblue;">&laquo; Gru&szlig; Sepp &raquo;</div>