タイトル : Re^3: エクセルへのテキストボックス描写方法 投稿日 : 2015/04/29(Wed) 20:48 投稿者 : 魔界の仮面弁士
> エラーとなってしまいます。 以下、コードを試さずに回答しています。 > xlShapes = xlSheet.Shapes TextBoxes も同様に処置した方が良い気が。 ただ、今回の作りで言うと、TextBoxes を辿って TextBox を取得しなおさなくても、 最初の Shape をそのまま利用してやれば、xlTextBox を使うことなく、 TextEffect プロパティから Text や FontSize を指定したり、 Line から ForeColor や Weight を指定することができそうです。Fill プロパティもかな。 > ' 〇テキストボックス(ライン色変更) > xlShapeRange = xlTextBox.ShapeRange '★1 > xlLine = xlShapeRange.Line (中略) > MRComObject(xlLine) > MRComObject(xlShapeRange) '★2 > > '〇テキストボックス背景色変更 > xlShapeRange = xlTextBox.ShapeRange '★3 > xlFill = xlShapeRange.Fill (中略) > MRComObject(xlFill) > MRComObject(xlShapeRange) '★4 上記の★1と★3は同一のオブジェクトですよね。 であれば、★2と★3の行ははずしておいてください。 ★1を使いまわしてから最後に★4で処理すればよいわけで。 |